Falls jemand jetzt nochmal den Source komplett braucht...
Du brauchst einen Timer auf deiner Form! Stelle den Timer so ein (Enabled:=False, Intervall z.B. für 5Sekunden:= 5000)
Delphi-Quellcode:
...
procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false; //<--- Timer abschalten
Application.Minimize;
end;