Focus der GUI bei WM_AfterShow

[EarlyBird]

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;