Странный глюк с формой. Помогите разобраться

[garuna]

Необходимо чтобы при запуске программа стартовала без формы, а через некоторое время форма появлялась. Скрытие делаю так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.ShowMainForm:= False;
end;

Через 5 сек после старта форма должна показаться. Ставлю таймер:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled:= False;
 ShowWindow(Handle, SW_SHOW);
end;

В итоге программа стартует без формы и через 5 сек форма появляется, но проблема в том, что все компоненты на ней исчезают. Т.е. просто пустая форма появляется. Что не так?

Использую Delphi XE3

[tsar_]

Зачем WinAPI использовать?
Вместо

ShowWindow(Handle, SW_SHOW);

просто поставить

Show;

[min@y™]

дай компилибельный исходник, буду посмотреть.

[garuna]

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

Зачем WinAPI использовать?
Вместо

ShowWindow(Handle, SW_SHOW);

просто поставить

Show;

Мда уж, действительно, всё оказалось так просто. Спасибо.