anchor.diff:      function ContainsValue(const Value: Variant): Boolean;
       function Delete(const Key: Variant): Variant;
       function GetEnumerator: IMapEnumerator;
  -    function Join(const ItemGlue: string = ';';
  -                  const KeyValueGlue: string = '=';
  -                  const LeftPad: string = '';
  -                  const RightPad: string = ''): string;
  +    function Join(const ItemGlue, KeyValueGlue, LeftPad, RightPad: string): string;
       procedure InitLock;
       procedure InitReadWriteLock;
       procedure Lock;
  
positive.code: 
    TListEnumerator = class(TInterfacedObject, IListEnumerator)
    private
      FList: IList;
      FIndex: Integer;
      function GetCurrent: Variant;
    public
      constructor Create(AList: IList);
      function MoveNext: Boolean;
      property Current: Variant read GetCurrent;
    end;
  
  { TListEnumerator }
  
  constructor TListEnumerator.Create(AList: IList);
  begin
    FList := AList;
    FIndex := -1;
  
negative.code: 
  function TStringBuffer.ToString: string;
  begin
    SetString(Result, PChar(FData), FLength);
  end;
  
  procedure TStringBuffer.WriteString(const AString: string);
  