Sehr einfach, hier eine Lösung mit Timer:
Timer1: Enabled False, 1000ms
Im InCreate des Hauptformulars:
Timer1.Enabled := True;
Im Timer einfach:
Delphi-Quellcode:
var i: ShortInt;
begin
inc(i);
if i = 3 then
begin
Timer1.Enabled := False;
Self.Hide;
ZweitesFormular.Show;
end;
end;
Sehr stupide Lösung, aber es geht.