TcxCollectionCompareEvent = function(ASender: TObject; AItem1: TCollectionItem; AItem2: TCollectionItem): Integer of object;