با استفاده از این روش شما فرم برنامه شما همواره در وسط صفحه نمایش قرار دارد و امکان تغییر مکان آن وجود ندارد
ابتدا تابع را در قسمت توابع معرفی فرم قرار داده و سپس خود تابع را در برنامه قرار دهید

procedure Centrala(var m: TWMWINDOWPOSCHANGED); message   
   WM_WINDOWPOSCHANGING ;

  procedure TForm1.Centrala(var m : TWMWINDOWPOSCHANGED);
  begin
        m.windowpos.x := (Screen.Width - Width) div 2;   {Left/Posicion X}
        m.windowpos.y := (Screen.Height - Height) div 2; {Left/Posicion X}
  end;