Dividir formulario proporcionalmente

[LoPiTaL]

Estuve probando otra vez con el método CustomAlignPosition

jajaj! Te dejé con la intriga ehh??

Sólo apuntar un detalle más a tu solución (que funciona perfectamente):
Así hay que vigilar el orden de creación de los componentes. Ya que por lo general se crean en este orden Panel1, Panel2, Panel3, Panel4, entonces el método directamente es correcto.
PERO si quisieses poner el Panel2 primero (por el motivo que sea), entonces necesitarías sobreescribir el otro método, OnCustomAlignInsertBefore, para poder indicar, cuando salga la pareja PanelX - Panel2, que quieres que alinee primero el panel2, ya que si no, las instrucciones:

Código Delphi [-]
    NewLeft := Panel2.Width;  //Sustituido Panel1 por Panel2
    NewTop  := Panel2.Height;

no funcionarán, ya que cuando alinea Panel1, Panel2 todavía no tiene el Width y Height que tocan.

Y respondiendo a la pregunta que os estáis haciendo: sí, me ha tocado pelearme muuuuuuuuuchhooooo con estos dos métodos...

Un saludo,
LoPiTaL