TStringList Dateinamen sortierten, geht das besser?

[DieDolly]

Ich habe das jetzt mal so übernommen, aber sind die Sort-Parameter coStringSort und coDigitAsNumbers richtig?

Delphi-Quellcode:

function NaturalCompareText(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Result := string.Compare(List[Index1], List[Index2], [coStringSort, coDigitAsNumbers]);
end;