TStringList absteigend sortieren

[XxnemesisxX49]

Guten Abend zusammen,

ich habe nun schon sämtliche Foren durchkämmt, doch finde keine Lösung für mein Problem.
Ich möchte Werte in einer TStringlist absteigend sortieren. Bisher habe ich es mit dem Code unten versucht, jedoch werden die Werte wie folgt sortiert:
22
20000
200
20

Code:

function StringListSortCompare(List: TStringList; Index1, Index2: integer): integer;
begin
  if List.CaseSensitive
    then Result := AnsiCompareStr(List[Index2], List[Index1])
    else Result := AnsiCompareText(List[Index2], List[Index1]);
end;

Ich hätte sie aber gerne so sortiert:
20000
200
22
20

Ich hoffe ihr könnt mir weiterhelfen und schon mal vielen Dank im Voraus