TListTargetCompare = function (Item, Target: Pointer): Integer;

TntClasses

......... introduced .........