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.