uses System.TypInfo;

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

var
  StrValue: string;
begin
  StrValue := GetEnumName(
    TypeInfo(TSeason), Ord(Summer));
  //strValue is 'Summer'

  WriteLn('str is ', StrValue);
end.