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