Bekomme meine Variante vom Splashscreen nicht hin

[DoktorD]

Hi. Habe mich wegen eines SplashScreen an foldenden Post hier im Forum gehalten.

SplashScreen Tutorial

Funktioniert auch soweit ganz gut, nur sieht man meine Anwendung schon, wenn ich den SplashScreen sehe.

Ich will es so haben:
Ich starte die Anwendung und sehe meinen Splashscreen ca. 3 Sekunden. Wärenddessen wird im Hintergrund meine TFrmApplication vollständig geladen und dann erst angezeigt.

Hier mein Code bis jetzt:

Delphi-Quellcode:

begin
  frmSplash := TfrmSplash.Create(Application);
  try
    frmSplash.InitializationDone := False;
    frmSplash.Show;
    frmSplash.Refresh;

    Application.Initialize;
    Application.CreateForm(TFrmApplication, FrmApplication);
    // (1)
    // weitere Formulare und Datenmodule hier her verschieben (siehe 2)
  finally
    frmSplash.InitializationDone := True;
  end;
  // (2)
  // Standardmäßig erstellte Formulare wird Delphi hier eintragen
  // nach (1) verschieben !!!
  Application.Run;
end.

Danke schon mal