Resolucion

[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 .

[Alejandro1987]

gracias a ustedes por sus respuestas, no es por mal agradecido, pero lo resolvi el dia de hoy, debido a que en mi trabajo no tengo internet me las tube que ingeniar y lo hice exactamente de esa manera que describen.

[Alejandro1987]

Me alegro que hallan respondido tan rapida a mi consulta!!! me doy cuenta que es un club al que vale la pena estar inscrito, lo que me lamento es de no contar con internet en el trabajo ni en mi casa, pero algun dia lo conseguire