[Patricio]

Gente, lo resolvi preguntando por la resolucion, si es 800x600 o 1024 x 768 lo hago como venia haciendo y si es mayor cambio las propiedades de ancho y alto, con el siguiente codigo, alguien me sugiere que lo haga de otra forma?
Gracias

Código Delphi [-]
var
Alto: integer;
Ancho:integer;
begin
   if (screen.DesktopHeight <> 768) and (screen.DesktopHeight <> 600)
   then
     begin
        Alto := 600;       // 768, ...
        Ancho := 900;  // 1366, ...
     end
   else
     begin
        Alto := 580;       // 768, ...
        Ancho := 800;  // 1366, ...
     end;
   Height := Height * Screen.Height div Alto;
   Width := Width * Screen.width div Ancho;
   ScaleBy(Screen.Width,Ancho);