Ordinaltyp - Obergrenze

[Prototypjack]

Moin,

Ich habe hier gerade ein kleines Problem, denn mir will einfach nicht mehr einfallen, wie man die Obergrenze (also den ordinalen Maximalwert) eines Ordinaltyps erfahren kann.

Delphi-Quellcode:

TObst = (obApfel, obBirne, obBanane);

procedure Foo;
begin
  Length(TObst); // Funktioniert leider nicht
  High(TObst); // auch nicht;
end;

Als gewünschtes Ergebnis hätte ich gerne 2 (0, 1, 2 = letzter, möglicher Wert)

Danke & Grüße,

Max

PS: Gesucht habe ich auch schon, aber nichts gefunden (irgendwie wollen mir auch nicht die richtigen Suchbegriffe einfallen).