TLVCompareEvent = procedure (Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer) of object;
(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer) ( TLVCompareEvent)();
ComCtrls
This is type ComCtrls.TLVCompareEvent.