Componentes - criando evento padrao TNotifyEvent

Quando voce quise criar um evento que só tem sender

não precisa criar:

 type

   TEventoX = procedure(sender: tobject) of object;

 private

   fEventoInt: TEventoX;

 published

   property OnEventoX: TEventoX write fEventoInt read fEventoInt;

use o TNofityEvent do Delphi. Está lá para economizar dedos,

assim sua declaração do evento fica

 private

   fEventoInt: TNotifyEvent;

 published

   property OnEventoX: TNotifyEvent write fEventoInt read fEventoInt;

Para detalhes veja o Criando Eventos