Source position: line 0
procedure MergeSort(
List: TFPList;
const OnCompare: TListSortCompare
);procedure MergeSort(
List: TStrings;
const OnCompare: TStringsSortCompare
);