type
  //explicit base values; such an enum
  //has no RTTI (no names via TypInfo)
  TSeason = (Summer = 1, Fall = 2,
    Winter = 3, Spring = 4);

var
  BaseWinter: Integer;
begin
  BaseWinter := Ord(Winter);
  //baseWinter is 3

  WriteLn('baseWinter is ', BaseWinter);
end.