[Delphi] Splash screen

Zrobiłem sobie splash screen do programu

Application.Initialize;
Splash:=TSplash.Create(Application);
Splash.Show;
Application.CreateForm(TForma, Forma);
Application.CreateForm(TOpcje, Opcje);
sleep(1000);
Forma.Show;
Splash.Free;
Application.Run;

i mam problem, ponieważ co bym nie włozył na formę TSplash, to zawsze pokazuje tylko gołą formę :(. W czym tkwi problem?---------------------------
Delphi 6

Pozdrówka

po mojemu:)

widocznie progrm generuje z każym rzem tylko pust forme....

a nie lepiej tego zrobic jako osobn forme , dac sleep(3000), i po sprwie....--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

Nie rozumiem za bardzo... Co mam zrobić jako osobną formę?---------------------------
Delphi 6

Pozdrówka

To kawałek z mojego plajerka od pokazywania SplashScreena podczas ładowania programu:

begin
FSplash:=TFSplash.Create(nil);
FSplash.Show;
Application.Initialize;
FSplash.Update; //zmusza program do odmalowania okienka Splash :)
Application.CreateForm(TFMain, FMain);
FMain.InitVis;
FMain.InitConfig;
FMain.WczytajConfig;
FMain.InitMuza;
FMain.InitSkin;
Application.CreateForm(TFLista, FLista);
FSplash.Destroy;
Application.Run;
end.

--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

Chodzi o to, że sleep usypia wątek, a wtedy okno nie może być namalowane. Lepiej skożystać z Timer'a.
--Szymek