[Страдалецъ]

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
 Application.MainForm.Left := (Screen.Width - Application.MainForm.Width) shr 1;
 Application.MainForm.Top := (Screen.Height - Application.MainForm.Height) shr 1;
 AnimateWindow(Application.MainForm.Handle, 1000, AW_BLEND or AW_SLIDE);
end;