сортировка в stringlist

[phomm]

// естественная сортировка / natural sort
function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';

  // сортировка , вызов
  for i := 0 to SL.Count - 2 do
    for j := 0 to SL.Count - i - 2 do
      if StrCmpLogicalW(PWideChar(WideString(SL[j])), PWideChar(WideString(SL[j + 1]))) > 0 then
      begin
        tmp := SL[j];
        SL[j] := SL[j + 1];
        SL[j + 1] := tmp;
      end;

Из рабочего выдрал, чуть подкорректировал прямо тут для ответа ТС'у

[min@y™]

StrCmpLogical() - не знал, что существует нечто стандартное, теперь буду знать.