1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TAufzaehlung = (abc, def, ghi, jkl);

var
  Aufzaehlung: TAufzaehlung

[...]
  Aufzaehlung := def;
  IrgendeinInteger := Ord(Aufzaehlung);
[...]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Aufzaehlung: TAufzaehlung;
  Idx: Integer;
begin
  Aufzaehlung := ghi;

  Idx := Ord (Aufzaehlung);

  Aufzaehlung := TAufzaehlung (Idx);
end;					

1:

  Aufzaehlung := IrgendeineFunktion(3);					

1:

  Aufzaehlung:=TAufzaehlung(3);