Oder wie wäre es damit?
Delphi-Quellcode:
...
Application.CreateForm(TSplashF, SplashF);
while not Hauptansicht.blnSplash do
Application.ProcessMessages;
SplashF.Free;
Screen.Cursor := crDefault;
...
[add]
wenn du dein Spalsh zweimal erzeugst und nur einmal freigibst, dan ist es natrlich noch einmal vorhanden