Source position: comctrls.pp line 1291
type TLVCompare = function(
Item1: TListItem;
Item2: TListItem;
AOptionalParam: PtrInt
):Integer;