Расположение формы

[KatCH]

Доброго времени суток.
Я не могу решить проблему расположения формы в центре Рабочего стола. Стандартно, в найстройках формы, стоит равнение по центру.

Gauge1.Progress:=Gauge1.Progress+25;
  if Gauge1.Progress = 100 then
    begin
    form1.Width:=750;
    Form1.Height:=550;
    Gauge1.Visible:=False;
    Timer1.Enabled:= False;
    ToolBar1.Visible:=True;
    Form1.AlphaB

Получается, как бы сначало форма у меня имеет инные значения Width и Height. Как мы видим после выполняется действие увеличения формы, и вот я хочу, что бы после етого окно ставало по средине рабочего стола.
Подписка в коде типа:

Gauge1.Progress:=Gauge1.Progress+25;
  if Gauge1.Progress = 100 then
    begin
    form1.Width:=750;
    Form1.Height:=550;
    Gauge1.Visible:=False;
    Timer1.Enabled:= False;
    ToolBar1.Visible:=True;
    Form1.AlphaBlendValue:=255;
    Form1.Position:=poMainFormCenter;

не помагает. Как решить проблему?

[maLoy*508]

а если

Form1.Position := poDesktopCenter;

[KatCH]

Сообщение от maLoy*508

а если

Form1.Position := poDesktopCenter;

Не помогает.

[maLoy*508]

Сообщение от KatCH

Не помогает.

дай полностью код

и что требуется? после определенных действий разместить форму в центре работчего стола?

[zmey31313]

Form1.Position := poScreenCenter;

[KatCH]

Сообщение от zmey31313

Form1.Position := poScreenCenter;

Спасибо. Проблема решена.