TCompareItems = function(AItem1: Pointer; AItem2: Pointer): Integer of object;