var Rec : TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @Rec, 0); {determinarea marimii}

  Rec.Left := Rec.Right div 2; {calcule pentru aflarea sfertului}
  Rec.Top := Rec.Bottom div 2;

  Form1.BoundsRect := Rec; {redimensionarea / repozitionarea formei}
end;