procedure  TXMLWriter.FormatXML;

   procedure  FormatNode(ANode : IXMLDOMNode; ALevel : integer);
   var 
    Childs : IXMLDOMNodeList;
    i : integer;
    a :  array   of  IXMLDOMNode;
   begin 
     if  ANode.hasChildNodes  then 
     begin 
      Childs := ANode.childNodes;
      SetLength(a,Childs.length);
       try 
         for  i :=  0   to  Childs.length- 1   do 
          a[i] := Childs.item[i];
         for  i :=  0   to  Length(a)- 1   do 
          ANode.insertBefore(FDocument.createTextNode(# 13 # 10 +DupeString(' ',(ALevel+ 1 )* 2 )),a[i]);
         for  i :=  0   to  Length(a)- 1   do 
          FormatNOde(a[i],ALevel+ 1 );
        ANode.appendChild(FDocument.createTextNode(# 13 # 10 +DupeString(' ',(ALevel)* 2 )));
       finally 
        a :=  nil ;
       end ;
     end ;
   end ;

 begin 
  FormatNode(FDocument.documentElement, 0 );
 end ;