Componente XMLDocument

procedure TF_Nfe.BitBtn1Click(Sender: TObject);
var
   xml : TXMLDocument;
   no_notafiscal, no_cabecalho, no_emitente   , no_destinatario ,
   no_produto   , no_total    , no_transporte , no_entrega      ,
   no_retirada  , no_dadosadic, nores_resposta, nores_notafiscal,
   nores_codigo , no_cobranca                                               : IXMLNode;

begin
   xml:=TXMLDocument.Create(nil);
   xml.Active:=TRUE;

   no_cobranca:=xml.DocumentElement.AddChild(´cobranca´);

   no_cobranca.ChildNodes[´fatura´].ChildNodes[´numero´].NodeValue:=edCobNumNF.Text;
   no_cobranca.ChildNodes[´fatura´].ChildNodes[´valorOriginal´].NodeValue:=edCobValorTotal.Text;
   no_cobranca.ChildNodes[´fatura´].ChildNodes[´valorDesconto´].NodeValue:=edCobDesconto.Text;
   no_cobranca.ChildNodes[´fatura´].ChildNodes[´valorLiquido´].NodeValue:=edCobVlLiquido.Text;

   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´numero´].NodeValue:=edCobDuplicata1.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´vencimento´].NodeValue:=edCobVencto1.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´valor´].NodeValue:=edCobParValor1.Text;

   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´numero´].NodeValue:=edCobDuplicata2.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´vencimento´].NodeValue:=edCobVencto2.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´valor´].NodeValue:=edCobParValor2.Text;

   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´numero´].NodeValue:=edCobDuplicata3.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´vencimento´].NodeValue:=edCobVencto3.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´valor´].NodeValue:=edCobParValor3.Text;

   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´numero´].NodeValue:=edCobDuplicata4.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´vencimento´].NodeValue:=edCobVencto4.Text;
   no_cobranca.ChildNodes[´duplicata´].ChildNodes[´valor´].NodeValue:=edCobParValor4.Text;


   empresa:=cbCodEmpresa.Items[cbCodEmpresa.ItemIndex];
   nome_arquivo:=´G:\NotaNet\nfe\nota\´+empresa+´_´+edNumeroNF.Text+´.xml´;
   xml.SaveToFile(nome_arquivo);

   xml.Active:=False;
   xml:=nil;

end;