Mantener la relacion de aspecto en la form

[jhonny]

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; // Ancho del diseño
  alto = 600;  // Alto del diseño
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