anchor.diff:          ReadComment(result);
           s := ReadToken(true);
         end;
  +      while (s = '<?') do
  +      begin
  +        ReadInstruction(result);
  +        s := ReadToken(true);
  +      end;
         ReadElement(result);
         result.fixChildren;
         result.Link;
  
positive.code: end;
  
  
  function TMXmlParser.ReadAttribute;
  Var
    s : String;
  
negative.code: 
  procedure TMXmlElement.SetText(const Value: string);
  begin
    if NodeType in [ntText, ntComment, ntProcessingInstruction] then
      FText := Value
    else
      raise EXmlException.create('Unable to set text at Row '+inttostr(FStart.line)+' column '+inttostr(FStart.col));
  