Проблема вывода текста.

[Bilargo]

Всем доброго времени суток.
Задача состоит в выводе текста через метод Canvas, но при реализации ничего не происходит, вот код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form1.Canvas do
  begin
  Font.Name:='Arial';
  Font.Size:=16;
  Font.Color:=clBlack;
  Brush.Style:=bsClear;
  TextOut(200,6,'ТЕКСТ');
  end;
end;

Почему система ничего не выводит? Ни ошибок, ни результатов.
Замечание модератора: Используйте тег [CODE]

[Utkin]

Используйте данный код уже после создания формы.

[Bilargo]

Сообщение от Utkin

Используйте данный код уже после создания формы.

Ммм....а для программы, что это меняет? Я имею ввиду, машине не всё ли равно где мы его используем?
Или вы имеете ввиду, создать другую процедуру для него?

[Utkin]

Машине пофигу, форме нет. Она в Create очень, знаете ли, чувствительна к некоторым манипуляциям. Выйдите из Create и можете рисовать на ней все что угодно.

[Bilargo]

Ммм....а ведь и правда))) Спасибо за помощь