anchor.diff:    private
       fDocument: IXMLDOMDocument3;
     public
  -    constructor Create(aStream: TStream); reintroduce; overload;
  +    constructor Create(const aStream: IDataStream); reintroduce; overload;
  +    constructor Create(aStream: TStream); overload;
       constructor Create(const aRootName: RawUTF8); overload;
       function Nodes(const XPath: SynUnicode): IXMLNodes;
       function Node(const XPath: SynUnicode): IXMLNode; overload;
  
positive.code: 
  { TXMLPack }
  
  constructor TXMLPack.Create(aStream: TStream);
  var
    adapt: IVariantOf;
  begin
    inherited Create;
    aStream.Position := 0;
    adapt := TDataStreamAsOleVariant.Create(TDataStream.Create(aStream));
    fDocument := MSXML2_TLB.CoDOMDocument60.Create;
    fDocument.load(adapt.Value);
  end;
  
  constructor TXMLPack.Create(const aRootName: RawUTF8);
  
negative.code: end;
  
  end.
  