Foros Club Delphi - crear xml a partir de DataSet

Veran uso Delphi6 y los Componentes de MySQL
Tengo un MySQLDataSet que he rellenado con una busqueda.
Ahora quiero exportar esos datos a XML, mi problema es que solo se exportar el primero porque luego no se crear un nuevo nodo, me da error.
Uso esto:

Código:

var

 docXml: TXMLDocument;

  nodo: IXMLNode;

begin

        docXml := TXMLDocument.Create(Application);

        docXml.Options := [doNodeAutoIndent];

        docXml.Active := true;

        datamodule1.MySQLDataSet.First;



        while not MySQLDataSet.eof do

        begin



        docXml.AddChild('Cliente');

        nodo := docXml.DocumentElement.ChildNodes.FindNode('Cliente');

        nodo := docXml.DocumentElement.AddChild('Nombre');

        nodo.Text := MySQLDataSet['NOMBRE'];

        nodo := docXml.DocumentElement.AddChild('DNI');

        nodo.Text := MySQLDataSet['DNI'];

        end;

end;

Me da el siguiente error: 'Only one top level allowed in a XML document';
Con lo cual deduzco que no me crea otro nuevo usuario si no que debe intentar hacer un subnodo dentro del nodo.
Como puedo hacerlo??
deberia quedar
<Cliente>
<Nombre>fafa<Nombre>
<DNI>5452342<DNI>
<Cliente>
<Cliente>
<Nombre>fafa<Nombre>
<DNI>5452342<DNI>
<Cliente>
...
...
Pero claro al hacer el segundo me salta el error.
Como puedo hacerlo?

Gracias por todo