Создание кнопки

[RIO]

Здравствуйте! Возникла проблема, не пойму почему этот код не работает:

     Form := TForm.Create(Self);
     Form.Height := 0;
     Form.Width := 0;
     Form.Position := PODesktopCenter;
     Form.BorderStyle := BSNone;
     Form.WindowState := WSMaximized;
     Form.ShowModal;
     Button := TButton.Create(Form);
     Button.Height := 100;
     Button.Width := 100;
     Button.Left := 0;
     Button.Top := 0;
     Button.Show;

Должна динамично создаваться кнопка на динамично созданной форме.

PS: форма создаеться, а вот кнопка нет

[Marsel737]

var
  Form: TForm;
  Button: TButton;
begin
  Form := TForm.Create(Self);
  Form.Height := 0;
  Form.Width := 0;
  Form.Position := PODesktopCenter;
  Form.BorderStyle := BSNone;
  Form.WindowState := WSMaximized;
  Button := TButton.Create(self);
  Button.Height := 100;
  Button.Width := 100;
  Button.Left := 0;
  Button.Top := 0;;
  Button.Parent := Form;
  Form.ShowModal;
end;

[artemavd]

А где в программе находится ваш код?

[RIO]

artemavd, в событии OnCreate Marsel737, спасибо, помогло Теперь все хорошо . . .

[Александриус]

begin
  {форма}
  Form := TForm.Create(Self);//создаем форму
  //задаем будущие свойства
  Form.Height := 0;
  Form.Width := 0;
  Form.Position := PODesktopCenter;
  Form.BorderStyle := BSNone;
  Form.WindowState := WSMaximized;
  {компонент - кнопка}
  Button := TButton.Create(self);//создаем компонент
  //задаем будущие свойства
  Button.Height := 100;
  Button.Width := 100;
  Button.Left := 0;
  Button.Top := 0;
  //глобальные свойства компонента
  Button.Parent := Form;
  Form.ShowModal;
end;