Problem beim Schließen meines Splash Screens

[Plague]

Hallo,

ich habe nach der Anleitung des Tutorials (aus der DP) einen Splash Screen programmiert. Er wird auch korrekt dargestellt nur nicht geschlossen.
Woran kann das liegen?

Hier alle Fälle wo geschlossen werden soll:

Delphi-Quellcode:

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

Delphi-Quellcode:

procedure TForm8.Timer1Timer(Sender: TObject);
begin
  Form8.Close;
  Timer1.Enabled := false;
end;

Delphi-Quellcode:

begin
  Form8:= TForm8.Create(Application);
  try
    Form8.Show;
    Form8.Refresh;
    Application.Initialize;
    Application.Title := 'Netzwerk Server';
    Application.CreateForm(TForm1, Form1);
  finally
    [b]Form8.InitializationDone := True;[/b]
  end;
    Application.CreateForm(TForm5, Form5);
    Application.CreateForm(TForm6, Form6);
    Application.CreateForm(TForm7, Form7);
    Application.Run;
end.

Egal wie ich es versuche. Die Form bleibt offen...

Gruß
Thomas

[Plague]

Ich habe es nun gelöst!

Ich habe auch Form1 einen weiteren Timer gesetzt. Schafft es aus irgendeinem Grund...

Gruß
Thomas