Ordinalwerte von Enumerationstypen in case verwenden

[Chewie]

Hmm, ich bin gerade am Überlegen, ging das jetzt nur bei C# oder auch bei Delphi?

Ich definiere einen Enumerationstypen:
TReportInterval = (riNever, riSeldom, riNormal, riOften, riRealtime); Nun bekommt riNever doch den Wert 0, riSeldom 1 etc., oder? Wenn ja, wie kann ich dann die Werte in einer case-Abfrage einfügen? Also etwa so (funktioniert so nicht):

Delphi-Quellcode:

procedure TAdminForm.ReportIntervalClick(Sender: TObject);
begin
  case TComponent(Sender).Tag of
    riNever:
    riSeldom:
    riNormal:
    riOften:
    riRealtime:
  end;
end;

Hab ich also gerade ein Brett vorm Kopf oder geht das grundsätzlich nicht?