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; Ancho := 900; end
else
begin
Alto := 580; Ancho := 800; end;
Height := Height * Screen.Height div Alto;
Width := Width * Screen.width div Ancho;
ScaleBy(Screen.Width,Ancho);