procedure  TForm1.ParseXML(FileName:  String );
 var 
  BorlandStock: IXMLNode;
  Price:  string ;
 begin 
  XMLDoc.LoadFromFile(FileName);
  XMLDoc.Active := True;
  BorlandStock := XMLDoc.DocumentElement.ChildNodes[ 0 ];
   //и т.д. 
 end ;

 procedure  TForm1.Button1Click(Sender: TObject);
 var 
  doc     : TXMLDocument;
  nd, snd, mnd : IXMLNode;
  i       : integer;
 begin 
  doc:=TXMLDocument.Create( nil );
  doc.Active:=true;
  doc.Version:='1.0';
  doc.Encoding:='windows-1251';
  nd:=doc.AddChild('Товары');
  nd.Attributes['Всего'] :=  10 ;


   for  i:= 1   to   10   do   begin 
        snd := nd.AddChild('Товарная_позиция');
        snd.Attributes['номер']:=i;
        mnd := snd.AddChild('DepOrdDate');
        mnd.NodeValue := 'Дата';
        mnd := snd.AddChild('Department');
        mnd.NodeValue := 'Подразделение';
        mnd := snd.AddChild('Tarif');
        mnd.NodeValue := 'Тариф';
   end ;
  doc.SaveToFile('c:\1.xml');
  doc.Free;
 end ;

 procedure  TForm1.Button2Click(Sender: TObject);
 var 
  doc: TXMLDocument;
 begin 
   try 
    doc:=TXMLDocument.Create( nil );
    doc.LoadFromFile('c:\1.xml');
    doc.Active:=true;
    ShowMessage(FormatXMLData(doc.XML.Text));
   finally 
    doc.Free;
   end ;
 end ;

doc.ChildNodes.FindNode()