Rückkehr nach Showmodal

[Spezi]

Also, die Prozedur wird in einem Timer ausgelöst:

Delphi-Quellcode:

procedure Tmainform.die_prozedur();
begin
  timer1.enabled:=false;
  Application.CreateForm(Tform2, form2);
  form2.showmodal();
  self.setfocus();
end;

Und dieses setfocus bringt eben nichts.
Genauso wenig wie refresh.
Und mir fällt auch keine andere Möglichkeit ein...