anchor.diff:  end;
   
   procedure Enumeration.SetValue(const Value: string; Items: TStrings);
  +var
  +  Ordinal: Integer;
   begin
     case EnumType of
       TEnumType.Char:
  
positive.code:   StringFirstChar = 1;
  
  resourcestring
    SInvalidEnumSize = 'Invalid Enumeration Size';
    SInvalidEnumOrdinal = 'Invalid Ordinal Value';
    SInvalidEnumValue = 'Invalid Enumeration Value';
  
  implementation
  
negative.code: var
    I: Integer;
    Items: TStringList;
  begin
    Items := TStringList.Create;
    try
      Items.Duplicates := dupError;
      for I := Low(Values) to High(Values) do
      begin
        SetValue(Values[I], Items);
      end;
  
      SetLength(FValues, Items.Count);
  