Ett exempel på hur man kan använda en uppräknande typ
type
TABCEnum = (A, B, C);
var
ABCEnum: TABCEnum;
begin
ABCEnum := A;
case ABCEnum of
A: ShowMEssage(IntToStr(Ord(ABCEnum)) +'=A');
B: ShowMEssage(IntToStr(Ord(ABCEnum)) +'=B');
C: ShowMEssage(IntToStr(Ord(ABCEnum)) +'=C');
end;
end;