MSXML4: Formatierung der XML-Datei

[aps]

Hallo,

zunächst einmal danke für dieses Forum. Dank der Suchfunktion hatte ich bisher immer auf alles eine Lösung gefunden, doch jetzt weiß ich nicht mehr weiter, sodass ich nun meinen ersten Beitrag hier lassen muss.

Ich will mit MSXML 4 Daten schreiben. Meine Testroutine sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  newmain : IXMLDomNode;
  newsub  : IXMLDomNode;
begin
  newmain := xmlDoc.createElement('dummy');

  newsub := xmlDoc.createElement('eins');
  newsub.text := 'dadadada';
  newmain.appendChild(newsub);

  newsub := xmlDoc.createElement('zwei');
  newsub.text := 'didididi';
  newmain.appendChild(newsub);

  Liste.appendChild(newmain);
  xmlDoc.save(fAppPath + DATABASE_FNAME);

Nur wird da alles in eine Zeile geschrieben:

Code:

<dummy><eins>dadadada</eins><zwei>dididid</zwei></dummy>

Ich möchte es aber in einer auch für den Menschen lesbaren form haben, also:

Code:

<dummy>
   <eins>dadadada</eins>
   <zwei>didididi</zwei>
</dummy>

Wie kann ich das einstellen? TIA!

Edit: Ich habe den Delphi-Code jetzt auch mal als solchen gekennzeichnet und meine Frage etwas präziser formuliert.