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

通常是設定在position屬性=poScreenCenter，但是那個是正中間，對於一般人的眼睛視線應該是中間偏上比較息慣，所以你可以在FormShow時加入下列程式碼：
procedure TForm1.FormShow(Sender: TObject);   
begin   
   left := (screen.Width - Width) div 2; //等寬   
   top :=  (screen.Height - Height)*1 div 3; //高度偏上   
end;