Форма по центру

[Arigato]

А почему бы это не сделать по аналогии с Left и Right:

procedure TForm1.sCBPositionChange(Sender: TObject);
begin
if sCBPosition.Text='Left' then begin
Form1.Left:=0;
Top:=Screen.WorkAreaHeight - height;
Exit;
end;

if sCBPosition.Text='Right' then begin
Left:=Screen.WorkAreaWidth - width;
Top:=Screen.WorkAreaHeight - height;
Exit;
end;

if sCBPosition.Text='Center' then begin
Left:=Screen.WorkAreaWidth div 2 - width div 2;
Top:=Screen.WorkAreaHeight div 2 - height div 2;
end;
end;

Переписал сходу...

[Shouldercannon]

О спасибо так рулит.