procedure CustomSort(Compare: TWideStringListSortCompare); virtual;

This is CustomSort, a member of class TTntStringList.