Ersetzen einen Knotens

[tobu]

Hallo ich will in meinem XML-Dokument einen Konten ersetzten das XML sieht ungefähr so aus:

Delphi-Quellcode:

<script nummer="lfd Nummer" author="Author">
      <Beschreibung>Das ist die Beschreibung</Beschreibung>
      <Befehl>Das ist der Befehl</Befehl>
</script>

Indem Xml-Dokument gibt es mehrere Script-Knoten. Ich suche nach einer bestimmten Nummer und will dann bei diesem Knoten Beschreibung und Befehl
ändern.
Ich habe das ungefähr so gedacht:

Delphi-Quellcode:

procedure TForm1.KnotenErsetzen(Knoten: IXMLNode);
begin
  XMLDoc.LoadFromFile(XMLDoc.FileName);
  Knoten.Attributes['Nummer'] := ENummer.Text;

  case CBAuthor.ItemIndex of
  0:  Knoten.Attributes['Author'] := CBAuthor.Items.Strings[0];
  1:  Knoten.Attributes['Author'] := CBAuthor.Items.Strings[1];
  2:  Knoten.Attributes['Author'] := CBAuthor.Items.Strings[2];
  end;

  Knoten.ChildValues['Beschreibung'] := RBeschreibung.Text;
  Knoten.ChildValues['Befehl'] := RBefehl.Text;

  //Einrücken und speichern im XML-Document
  XMLDoc.Options := [doNodeAutoIndent];
  XMLDoc.SaveToFile(XMLDoc.FileName);

end;

Leider funtioniert dies nicht. Kann mir vieleicht jemand helfen?