Uses TypInfo;
Type TMyEnum = (meFirst, meSecond, meThird);
Var I: TMyEnum;
Begin
For I in TMyEnum Do
Begin
Writeln(GetEnumName(TypeInfo(TMyEnum), ord(I)));
End;
End.
VXNlcyBUeXBJbmZvOwpUeXBlIFRNeUVudW0gPSAobWVGaXJzdCwgbWVTZWNvbmQsIG1lVGhpcmQpOwpWYXIgSTogVE15RW51bTsKQmVnaW4KICBGb3IgSSBpbiBUTXlFbnVtIERvCiAgQmVnaW4KICAgIFdyaXRlbG4oR2V0RW51bU5hbWUoVHlwZUluZm8oVE15RW51bSksIG9yZChJKSkpOwogIEVuZDsKRW5kLg==