[Страдалецъ]

А если вам все-же захочется сортировать список по правилам сортировки чисел, то делается так:

Код:

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;