Nee, da hast Du einen anderen Fehler drin.
Das hier funktioniert:
Delphi-Quellcode:
Var
Anzahl : Integer;
Begin
Anzahl := Ord(High(TMeineAufzaehlung))-1;
Das funktioniert aber nur, wenn Du Delphi die Nummerierung der Aufzählungselemente überlässt (so, wie Du es ja auch gemacht hast).