uses System.TypInfo;
type
TSeason = (Summer, Fall, Winter, Spring);
var
SummerValue, WinterValue: TSeason;
begin
SummerValue := Summer;
//the type name works as a qualifier
WinterValue := TSeason.Winter;
WriteLn('summer is ', GetEnumName(
TypeInfo(TSeason), Ord(SummerValue)));
WriteLn('winter is ', GetEnumName(
TypeInfo(TSeason), Ord(WinterValue)));
end.