ich hab das mal mit einem Timer gelöst.
Vielleicht nicht elegant aber es funktioniert.
Den Timer auf False setzen interval auf 10
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
TimerA.Enabled := True;
end;
procedure TForm1.TimerATimer(Sender: TObject);
begin
TimerA.Enabled := False;
Form2.ShowModal;
end;
//Form2
procedure TForm2.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;