Prueba con esto, Ancho es el ancho de pantalla con el que estas trabajando tu proyecto y alto es el alto de pantalla con que estas trabajando tu proyecto
Código Delphi
[-]
function redimesion(altoForm, anchoForm :Integer):Boolean;
const
ancho = 800; alto = 600; begin
try
altoform := altoform * Screen.Height div alto;
anchoform := anchoform * Screen.Width div ancho;
Result := True;
except
Result := False;
end;
ScaleBy(Screen.Width, ancho);
end;
El llamado de esta funcion seria redimension(Form1.Height,Form1.Width)
Espero te sirva