Ayuda con XML y TXMLDocument

[GooD]

Para generar un archivo xml he utilizado

Código Delphi [-]
var
  NewStock: IXMLNode;
  ValueNode: IXMLNode;
begin
  NewStock := XMLDocument1.DocumentElement.AddChild('stock');
  NewStock.Attributes['exchange'] := 'NASDAQ';
  ValueNode := NewStock.AddChild('name');
  ValueNode.Text := 'Cisco Systems'
  ValueNode := NewStock.AddChild('price');
  ValueNode.Text := '62.375';
  ValueNode := NewStock.AddChild('symbol');
  ValueNode.Text := 'CSCO';
  ValueNode := NewStock.AddChild('shares');
  ValueNode.Text := '25';

end;

funciona bien el problema que tengo es que tengo un ciclo donde agrego todos los nodos que son detalle pero en el archivo solo me agrega una linea
y no identado linea a linea por cada nodo

<?xml version="1.0" encoding="utf-8"?>
<nodoprincipal>
<Detalle><hijo1>x</hijo1><hijo2>y</hijo2><hijo3>z</hijo3></Detalle></nodoprincipal>

en vez de

<?xml version="1.0" encoding="utf-8"?>
<nodoprincipal>
<Detalle>
<hijo1>x</hijo1>
<hijo2>y</hijo2>
<hijo3>z</hijo3>
</Detalle>
</nodoprincipal>

alguien me puede ayudar con este objeto? o algo similar

gracias

[old_martinez]

Hola GooD, debes usar la opción doNodeAutoIndent

Código Delphi [-]
  XMLDocument1.Options:= XMLDocument1.Options + [doNodeAutoIndent];

Saludos!

[GooD]

Bueno al final lo he logrado

Código Delphi [-]
  XMLDoc.Options:=[doNodeAutoIndent];

Pero antes de utlizar

Código Delphi [-]
  XMLDoc.Active:=True;

el por que no estoy seguro pero un verdadero dolor de cabeza!

gracias por la ayuda!