[jhonny]

Alguna vez vi un codigo que me sirvio de la pagina de un escritor muy nombrado pero que no se porque ahora no recuerdo su nombre...

la cosa era asi:

Código Delphi [-]
 
procedure Escalar;
const
  ancho = 1024; // Ancho en el momento del diseño
  alto = 768; // 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;

Y si que funciona.