Und weil es so schön ist, noch eine Anmerkung von mir
Man kann solche Aufzählungen auch wunderbar in ein Set packen.
Beispiel:
Delphi-Quellcode:
TFontstyletype = (fsBold,fsItalic,fsUnderline);
TFontstyle = set of TFontstyletype;
Damit kann man sehr sprechend und bequem mehrere Elemente einer Aufzählung zulassen.