UnitMtxStrings
TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;