hola! te paso una funcion que a mi me sirve muy bien para ajustar las resoluciones de pantalla. Antes qeu nada te comento que lo que hago yo es meter un Tpanel que ocupe todo el formulario y redimensiono el Tpanel con este codigo :
Código Delphi
[-]
var
x,y:integer;
begin
x:=Screen.Width;
y:= Screen.Height;
if ((x<1024)and (y<768)) then
begin
Height := Height * y div alto;
Width := Width * x div ancho;
ScaleBy(Screen.Width, ancho);
panel1.ScaleBy(Screen.Width, ancho);
end;
alto y ancho son constantes que contienen los valores 800 y 600 que se toman como parametro para escalar el Tpanel
Otra cosa tambien es que yo lo hago pensando lo siguiente:
1- si la resolucion es igual o mayor a 1024x 768 no necesito escalar por que entraria bien
2- si la resolucion es menor a 1024x768 ahi escalo a 800x600, ya que 640x480 no usa nadie (y si alguien lo usa en 640x480 que se compre anteojos y ponga una resolucion razonable jajajaaj)
Saludos!