Form2.Position := poScreenCenter; im onShow?

[Matze]

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
begin
  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;
end;