Sortieren nach DIN bei TStringList;

[Willie1]

Hallo Delphi-Freunde*innen,
ich habe u.a. bei Wikipedia gelesen, dass sortieren beim deutschen Alphabet(mit Umlauten) nach DIN 5007 erfolgt. Es gibt 2 Varianten:
1. ä entspricht a, ö = o ü = u, ß = s
2. ä entspricht ae, ö = oe ü = ue, ß = ss.
Bei Windows (und TStringList) wird nach Methode 1 sortiert.

Ich hatte nun den Ehrgeiz, Methode 2 bei TStringList hinzu zu fügen. Das ist mir gelungen aber nur mit der Methode Sort. Sorted=true und Add('') ist nicht praktikabel.

Könnt ihr euch meinen Ansatz mal ansehen, vielleicht gibt es eine einfachere Lösung. Bei Wikipedia gibt es eine Beispiel-Liste.
https://de.wikipedia.org/wiki/Alphabetische_Sortierung
Zu beachten ist, Goethe muss Goethe bleiben und darf nicht zu Göthe mutieren.

Danke und Gruß Willie.