uses System.TypInfo;

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

var
  SummerValue: TSeason;
begin
  SummerValue := TSeason(GetEnumValue(
    TypeInfo(TSeason), 'Summer'));
  //summerValue is Summer

  //unknown names return -1

  WriteLn('summer is ', Ord(SummerValue));
end.