TcxCollectionNotifyEvent = procedure(Sender: TObject; AItem: TCollectionItem) of object;