А если вам все-же захочется сортировать список по правилам сортировки чисел, то делается так:
Код:
function NumberSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := 0;
if StrToInt(List.Strings[Index1]) > StrToInt(List.Strings[Index2]) then Result := 1;
if StrToInt(List.Strings[Index1]) < StrToInt(List.Strings[Index2]) then Result := -1;
end;
...
Var
SL: TStringList;
begin
SL := TStringList.Create;
SL.LoadFromFile(OpenDialog1.FileName);
SL.CustomSort(@NumberSort);
Memo1.Lines := SL;
SL.Free;
end;