Delphi-PRAXiS - Delphi Tlistview sortieren

Hallo DP,
Ich brauche hilfe bezüglich des sortieren einer tlistview per alpha sort
Ich weiss, dass man da irgendwas mit oncompare machen muss, allerdings möchte ich die listview bei 2-maligem klicken wieder in die andere Richtung sortieren, und danach dann wieder in die andere, und wieder und wieder...
Es muss also geprüft werden ob das feld sortiert ist, und wie.
Ich habe da einen code gefunden um das feld in eine richtung zu sortieren, allerdings schaffe ich es nicht das so umzuschreiben, dass es auch in die andere richtung sortiert wird, weiterhin sortiert der code z.Teil nicht ganz korrekt.
Danke für alle Hilfe im Vorraus
Gruß
Jan