[Loviedo]

Perdón, no se corregir el mensaje.
Revisa la sintaxis.

Código Delphi [-]
 
function Rectangle1_OnBeforePrint(Self: TRaveRectangle);
beginif self.Fillcolor = clWhite thenSelf.Fillcolor := clSilver;
   else
      Self.Fillcolor := clWhite;
   end if;end OnBeforePrint;

Es en el Rave.
Lo he probado y funciona.
saludos.