讓視窗程式開啟時，位置在螢幕的中間偏上

通常是設定在position屬性=poScreenCenter，但是那個是正中間，對於一般人的眼睛視線應該是中間偏上比較息慣，所以你可以在FormShow時加入下列程式碼：

procedure TForm1.FormShow(Sender: TObject);
begin
  left := (screen.Width - Width) div 2; //等寬
  top :=  (screen.Height - Height)*1 div 3; //高度偏上
end;