TStringList absteigend sortieren?

[poy]

wenn du die liste mit sort sortiert hast, kanst du die strings mit Exchange(Index1, Index2: Integer); austauschen.
ist nicht gerade eine schöne lösug, sollte abr funktionieren.
stehe nämlich vor dem selben problem habe es so gelöst.
wäre aber auch froh, wenn man dies anders lösen kann.