Source position: mclasses.pas line 882
type TStringListSortCompare = function(
List: tstringlist;
Index1: Integer;
Index2: Integer
):Integer;