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