Ich würde einen "normalen" Enum-Typen und ein konstantes Array draus machen:
Delphi-Quellcode:
type
TStufe = (stWenig, stMittel, stBoah);
const
cZahlen: array[TStufe] of Double = (1.0, 2.0, 3.0);
Das kann man dann so benutzen:
Delphi-Quellcode:
procedure VerarbeiteStufe(AStufe: TStufe);
begin
ShowMessage(FloatToStr(cZahlen[AStufe]));
end;