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