anchor.diff:    private
       FXMLDocument: TXMLDocument;
     protected
  -    procedure AlterChildNodeNamespaceProc(AChildnode: tDOMNode);
  -    procedure RemoveEmptyChildNodeProc(AChildNode: TDOMNode); overload;
  +    procedure AlterChildNodeNamespaceProc(AChildnode: TDOMNode);
  +    procedure RemoveEmptyChildNodeProc(AChildNode: TDOMNode);
       procedure LoopChildNodes(AHandleChildNodeProc: TOnHandleChildNode); overload;
  +    procedure LoopChildNodes(AChildNode: TDOMNode;
  +                             AHandleChildNodeProc: TOnHandleChildNode); overload;
       procedure RemoveEmptyChildNodes;
       procedure AlterNamespace;
   
  
positive.code:   begin
      child_node := FXMLDocument.DocumentElement.ChildNodes.Item[anz];
      if Assigned(AHandleChildNodeProc) then
        AHandleChildNodeProc(child_node);
    end;
  end;
  
  
negative.code:   SetXMLToStream(ARequest);
  end;
  
  procedure TRemodelRequest.AlterChildNodeNamespaceProc(AChildnode: tDOMNode);
  begin
    { TODO -oAlfred Gerke -cremodel : Hier muss tns: wenn vorhanden entfernt werden }
  end;
  
  procedure TRemodelRequest.RemoveEmptyChildNodeProc(AChildNode: TDOMNode);
  begin
    if Assigned(AChildNode) then
      if (Trim(AChildNode.TextContent) = EmptyStr) then
         AChildNode.ParentNode.RemoveChild(AChildNode);
  end;
  
  procedure TRemodelRequest.LoopChildNodes(AHandleChildNodeProc: TOnHandleChildNode);
  