function FindSortedListByTarget(List: TList; TargetCompare: TListTargetCompare; Target: Pointer; var Index: Integer): Boolean;

TntClasses

This is function TntClasses.FindSortedListByTarget.