A classe TXMLDocument permite trabalhar com XML de uma forma muito simples, conforme veremos neste exemplo mostrado a seguir.

• Inclua na seção uses: XMLDoc, XMLIntf
• Adicione um botão no formulário.
• Programe o evento OnClick deste botão como abaixo:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    XMLDocument: TXMLDocument;
    NodeTabela, NodeRegistro, NodeEndereco: IXMLNode;
    I: Integer;
  begin
    XMLDocument := TXMLDocument.Create(Self);
    try
      XMLDocument.Active := True;
      NodeTabela := XMLDocument.AddChild('Pessoa');
      for I := 1 to 5 do
      begin
        NodeRegistro := NodeTabela.AddChild('Registro');
        NodeRegistro.ChildValues['Id'] := I;
        NodeRegistro.ChildValues['Codigo'] := I * I;
        NodeRegistro.ChildValues['Nome'] := 'NOME ' + IntToStr(I);
        NodeEndereco := NodeRegistro.AddChild('Endereco');
        NodeEndereco.ChildValues['Logradouro'] := Format('RUA %d', [I]);
        NodeEndereco.ChildValues['Numero'] := I * 1000;
      end;
      XMLDocument.SaveToFile('C:\Pasta\Teste.xml');
    finally
      XMLDocument.Free;
    end;
  end;
  

• A linha indicada abaixo deve ser modificada para salvar o arquivo em uma pasta de sua preferência:

  XMLDocument.SaveToFile('C:\Pasta\Teste.xml');

• Se preferir, poderá obter o XML como uma string em vez de salvá-lo em arquivo, conforme segue:

  S := XMLDocument.XML.Text;