При запуске игры форма выравнивается не правильно

[gufon]

Я сделал выравнивание формы по центру экрана, при on_create, и при запуске игры разрешение меняется и она выравнивается по разрешению игры а когда игру сворачиваю назад не меняется. вот еще может причина сдесь

left:= screen.Width - 12;
 i:=(sender as TImage).tag;
if   left = screen.Width - 12  then
ShellExecute(h, 'open', pchar(memo2.lines[i]), nil, nil, SW_SHOW)

может on create срабатывает не только при запуске, помогите!!!

[dmitriegorovih]

Здравствуйте киньте на форму timer и в интервале напишите 1, потом следующий код

var
  Form1: TForm1;
  sizecreen:Tpoint;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (sizecreen.X <> screen.Width) or (sizecreen.y <> screen.Height) then begin
form1.Left:=round((screen.Width-form1.Width)/2);
form1.Top:=round((screen.Height-form1.Height)/2);
sizecreen.X:=screen.Width;
sizecreen.Y:=screen.Height;
end;
end;