procedure Notify(Ptr: Pointer; Action: TListNotification); override;

This is Notify, a member of class TActionListList.