unit Unit1;



  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;


  TForm1 = (TForm)
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    Button2: TButton;
     Button1Click(Sender: TObject);
     Button2Click(Sender: TObject);
  ;


  Form1: TForm1;






 TForm1.Button1Click(Sender: TObject);

  XMLDocument1.XML.Clear;
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();
  XMLDocument1.XML.Add();

  
  ShowMessage(XMLDocument1.XML.Text);

  
  XMLDocument1.Active := True;
  XMLDocument1.SaveToFile();
;



 TForm1.Button2Click(Sender: TObject);

  pNode,cNode: IXMLNode; 

  XMLDocument1.XML.Clear;
  XMLDocument1.Active := True;                
  XMLDocument1.Version := ;              
  XMLDocument1.Encoding := ;          

  pNode := XMLDocument1.AddChild(); 
  pNode.SetAttribute(, );         

  pNode := pNode.AddChild();            
  pNode.SetAttribute(, );         
  pNode.SetAttribute(, );

  cNode := pNode.AddChild();  
  cNode.Text := ;

  cNode := pNode.AddChild();
  cNode.Text := ;

  cNode := pNode.AddChild();
  cNode.Text := ;

  
  ShowMessage(XMLDocument1.XML.Text);

  
  XMLDocument1.SaveToFile();
;

.