Splashscreen: Formcreate der Mainform ausführen

[Svenkan]

Hey!
Ich habe einen Splashscreen in meine Anwendung eingebaut. Ich möchte nun, dass währenddessen auch direkt THauptform.FormCreate ausgeführt wird und erst nach deren Abschließen der Screen geschlossen wird.

Delphi-Quellcode:

procedure TSplash.SetInitializationDone(const Value: Boolean);
begin 
  FInitializationDone := Value; 
  Close;
end;

procedure TSplash.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := (not Timer1.Enabled) and FInitializationDone;
end;

procedure TSplash.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Close;
end;

procedure TSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Splash := nil;
end;