[dec]

Hola,

Empezado por Andrés

una cosita, hay que poner la llamada al método Notification del ancestro, que se encarga de liberar la referencia a nuestro componente de la lista de componentes ligados (FFreeNotifies).

Código Delphi [-]
 procedure TDecBrowser.Notification(AComponent: TComponent;
   Operation: TOperation);
 begin
   inherited Notification(AComponent, Operation);
   if (Operation = opRemove) and (AComponent = FActionList) then
     FActionList := nil
 end

Bueno. Lo cierto es que suelo hacerlo así como dices Andrés, empero, ¿no es igualmente válido utilizar, digamos, la abreviatura, tal como se ve abajo? Yo diría que así es, aunque no fundamentado en letra impresa, sino en la poca experiencia que tengo en estas lides.

Código Delphi [-]
 // Notificaciones al componente.
 //
 procedure TDecBrowser.Notification(Component: TComponent;
   Operation: TOperation);
 begin
   inherited;
   if (Operation = opRemove)
     and (Component = FAcciones) then
       FAcciones := nil
 end;