Nuevo evento

[delphi.com.ar]

Lo que dijo Kafu, es que es muy fácil definir un evento, pero hay que saber cuando dispararlo, de nada sirve tener eventos que nunca se disparen:

  TMiClase = class(TWinControl)
  private
    FMiEvento : TNotifyEvent;
  published
    property MiEvento : TNotifyEvent read FMiEvento write FMiEvento;
  end;

Viendo la herencia del TAnimate, se puede ver que viene de TControl, y TControl tiene definido el evento OnClick pero no lo tiene publicado, entonces podemos hacer lo siguiente:

  TMiAnimate = class(TAnimate)
  published
    property OnClick;
  end;

Como no lo he probado, no te garantizo de que se dispare el evento, Saludos!