[[Al González]]

Una muestra de mi código en una biblioteca de componentes:

Código Delphi [-]
  Function TMagiaClientDataSet.BaseProp (Const Prop :DSProp) :Integer;
  Var
    Props :PDSProps;
  Begin
    { NOTE: IDSBase.GetProp don't work properly with the dspropReadOnly
      constant (DataSnap bug).  It is necessary to use the IDSBase.GetProps
      method in order to get the value of this property. }
    If Prop = dspropReadOnly Then
    Begin
      New (Props);

      Try
        Check (DSBase.GetProps (Props^));
        Result := Integer (Props.bReadOnly);
      Finally
        Dispose (Props);
      End;
    End
    Else
      Check (DSBase.GetProp (Prop, @Result));
  End;

Sangrado de dos espacios, uso de mayúsculas y minúsculas incluso en las palabras reservadas, espacio antes de abrir paréntesis de función, dos puntos (":") como prefijo del tipo de dato y línea en blanco antes de empezar bloque después de sentencias (como esa línea en blanco que está antes del Try).

:)