uses System.TypInfo;

type
  TSeason = (Summer, Fall, Winter, Spring);

var
  WinterValue: TSeason;
begin
  //typecast from the ordinal value
  WinterValue := TSeason(2);
  //winterValue is Winter

  WriteLn('winter is ', GetEnumName(
    TypeInfo(TSeason), Ord(WinterValue)));
end.