TXMLDocument Struktur erstellen jedoch bleibt die Datei leer

[TUX_der_Pinguin]

Ich hab hier eine Anwendung die eine XML Datei erstellen/speichern soll.
Jedoch klappt das irgendwie nicht Knoten hinzu zufügen bzw. beim Speichern
der Datei am Ende wird eine 0 Byte große Datei erstellt.

Irgendwie bin ich ratlos, was ich machen muß um den Root Knoten zuerstellen
und dann weitere Unterknoten.

Zur Erstellung benutze ich die Komponente TXMLDocument von Delphi 2007 Prof. für Win32

Delphi-Quellcode:

XMLDoc := TXMLDocument.Create(Application);
try
  XMLDoc.Active   := True;
  XMLDoc.Version  := '1.0';
  XMLDoc.Encoding := 'UFT-8';

  //Root Node
  RootNode := XMLDoc.AddChild('tables');

  for Idx := 0 to High(Tables) do begin
    ItemNode := RootNode.AddChild('tab'+IntToStr(Idx));
    ItemNode.Attributes['name'] := Tables[Idx].Name;
  end;{for}

  XMLDoc.Active := True;

  //Node := XMLDoc.AddChild('tables');
  Writeln(XMLDoc.XML.Text);

  //XML Dokument formatieren
  XMLDoc.XML.Text := FormatXMLData(XMLDoc.XML.Text);
  XMLDoc.Active   := True;

  //XML Dokument speichern
  XMLDoc.SaveToFile('tables.xml');
finally
  XMLDoc.Free;
end;