Adaptar form a nuevo tamaño de pantalla

[MAXIUM]

Código Delphi [-]
// Dimensión del formulario en tiempo de edición
Const
        Ancho  = 800;
        Alto     = 600;

// Esto va en en Form.Create.
    // Redimensiona la aplicación en base a la resolución.
       Height:= Height * Screen.Height div Alto;
       Width:= Width * Screen.Width div Ancho;
   // ScaleBy(Screen.Width, Ancho); //en base al ancho
      ScaleBy(Screen.Height, Alto); // en base al alto.