reajustar a las resolucion de pantalla
 

hola a todos, tengo un pequeño problema con la resolucion de pantalla. Tengo una aplicacion que debe funcionar para resoluciones de 1024x768 y 1280x1024

la aplicacion la he diseñado sobre la resolucion de 1024 y en el evento create del form he metido este codigo:
Height := Height * screen.height div 768;
Width := Width * screen.width div 1024;
scaleby(screen.width,1024);

el problema es que el ajuste horizontal le hace bien , pero el vertical no es exacto. el scaleby hace una escala proporcional a lo q le digamos, pero solo permite un parametro y claro , la diferencia de escala horizontal es 1,25 y la vertical es 1,33.
alguien sabe como solucionarlo???

A ver si esto te puede servir
 

Código Delphi [-]
function SetScreenResolution(Ancho, Altura: integer): Longint;
var
 DeviceMode: TDeviceMode;
begin
 with DeviceMode do begin
   dmSize := SizeOf(TDeviceMode);
   dmPelsWidth := Ancho;
   dmPelsHeight := Altura;
   dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 end;
 Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

procedure cambiar_resolucion(ancho,alto:integer);
begin
 SetScreenResolution(ancho, alto);
end;