anchor.diff:    CheckException(RunAdd, EXMLError);
   end;
   
  -procedure TXMLNodesTest.Item;
  +procedure TXMLNodesTest.ItemByIndex;
   begin
     CheckEquals(
       3,
  
positive.code: procedure TXMLAttributesTest.ItemByIndex;
  begin
    CheckEquals(
      UnicodeString('1'),
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group/item'
      )
  
negative.code: procedure TXMLAttributesTest.ItemByName;
  begin
    CheckEquals(
      XMLString('1'),
      TXMLPack.New(TXMLStreamForTest.New).Node(
        '/root/group/item'
      )
  