Neuen Knoten einfügen

[tobu]

Hallo ich habe ein Problem mit dem Einfügen einese Knotens in ein bestehendes XML-Document. Ich habe folgenden Code geschrieben und benutzte Delphi 7:

Delphi-Quellcode:

procedure TForm1.BSpeichernClick(Sender: TObject);
  var
  NewScript: IXMLNode;
  ValueScript: IXMLNode;
begin
  NewScript := XMLDocument1.DocumentElement.AddChild('Script');

  //Erstellen der Attribute
  if CBDBTyp.ItemIndex = 0 then
     NewScript.Attributes['DB-Typ'] := 'SQL-Server'
  else
    NewScript.Attributes['DB-Type'] := 'Oracle';

  NewScript.Attributes['Nummer'] := ENummer.Text;

  if CBAuthor.ItemIndex = 0 then
    NewScript.Attributes['Author'] := 'CD';
  if CBAuthor.ItemIndex = 1 then
    NewScript.Attributes['Author'] := 'FV';
  if CBAuthor.ItemIndex = 2 then
    NewScript.Attributes['Author'] := 'JSP';

  //Erstellen der Elemente
  ValueScript := NewScript.AddChild('Beschreibung');
  ValueScript.Text := MBeschreibung.Text;
  ValueScript := NewScript.AddChild('Befehl');
  ValueScript.Text := MSQL.text;

end;

Das Problem ist, ich bekomme keine Fehlermeldung beim ausführen. Aber in dem XML-Document wird kein Knoten eingefügt.
Hat vieleicht jemand eine Idee woran das liegen könnte?