crear xml a partir de DataSet

[gesjug]

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:

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