[jhonny]

Prueba tambien llamando el siguiente procedimiento al inicio de la forma y nos cuentas como te va :

Código Delphi [-]
procedure Escalar;
const
  ancho = 800; // Ancho en el momento del diseño
  alto = 600; // Alto en el momento del diseño
begin
  Height := Height * Screen.Height div alto;
  Width := Width * Screen.Width div ancho;
  ScaleBy(Screen.Width, ancho);
end;

Espero te sirva .