anchor.diff:    public
       constructor Create(AList: TAbstractList);
       function MoveNext: Boolean;
  +    procedure Reset;
       property Current: Variant read GetCurrent;
     end;
   
  
positive.code:     Result := False;
  end;
  
  { TAbstractList }
  
  
  constructor TAbstractList.Create(Sync, ReadWriteSync: Boolean);
  begin
  
negative.code:   public
      constructor Create(AMap: TAbstractMap);
      function MoveNext: Boolean;
      procedure Reset;
      property Current: TMapEntry read GetCurrent;
    end;
  
  