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