[argami]

vale lo acepto me equivoque usa esto y ya lo tienes si quieres cambiar el ajuste juegas con las cantidades

Procedure AjustForm(Form:TForm);
begin
  With Form do
  begin
     ScaleBy (75, 100);
     Width := Width * 0.75;
     Height := Height * 0.75;
  end;
end;