Einrückungen in einer generierten XML-Datei

[ak1]

Hallo Leute ich habe eine XML-Datei mit folgender procedure generiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDoc: TXMLDocument;
begin

  XMLDoc := TXMLDocument.Create(self);
  XMLDoc.Active:=True;
  XMLDoc.Encoding:= 'ISO-8859-1';
  XMLDoc.AddChild('menu');

  XMLDoc.DocumentElement.AddChild('menu_1');
  XMLDoc.DocumentElement.ChildNodes.FindNode('menu_1').Text:='menü_1';

  XMLDoc.DocumentElement.ChildNodes.FindNode('menu_1').AddChild('menu_1_1');

  XMLDoc.DocumentElement.ChildNodes.FindNode('menu_1').ChildNodes.
  FindNode('menu_1_1').Text:='menü_1_1';
  XMLDoc.DocumentElement.AddChild('menu_2');

  XMLDoc.SaveToFile('C:\testxml.xml');

end;

Jetzt sieht der XML-code aber etwas unübersichtlich aus:

Code:

<?xml version="1.0" encoding="ISO-8859-1"?>
<menu><menu_1>menü_1<menu_1_1>menü_1_1</menu_1_1></menu_1><menu_2/></menu>

Wie kann ich die Einrückungen ordentlicher gestalten?

Gruß AK