Aufzählungstypen "addieren"

[himitsu]

also
FSortDir = TSortDir(Ord(FSortDir) xor 1) .
Aber dieses funktioniert auch nur bei deinen 2 Werten, sobald ein dritter oder mehr Werte dazukommen war's das.

+1 im Ring, also 1 Weiterzählen und nach dem Ende am Anfang fortahren ginge so:
FSortDir = TSortDir((Ord(FSortDir) + 1) mod (Ord(High(TSortDir)) + 1)) .
Wobei dieses ebenso nur funktioniert, wenn es eine Fortlaufende Reihe gibt, welche bei 0 beginnt (in der Deklaration darf keinem Wert explizit via = eine andere Nummer zugeordnet sein).