Introscreen

[crasher1985]

Hallo,

habe folgendes kleines Problem och will vor meiner Hauptanwendung einen Introscreen anzeigen welcehr durch einen Timer 3 Sekunden sichtbar ist. Dazu habe ich mir eine Form mit einen TImage angelegt.

Im Ablauf erzeuge ich als erstes diese "IntroForm" und arbeite dann mit FormCreate folgendermassen:

Delphi-Quellcode:

procedure TIntro.Timer1Timer(Sender: TObject);
begin
 Self.Close;
end;

procedure TIntro.FormCreate(Sender: TObject);
begin
  Self.Show;
end;

so nun macht das Programm aber danach nicht weiter sonder beendet einfach ohne das die eigentliche Mainform und die dazugehörigen Funktionen auszuführen. Was muss ich da noch machen?