Wert in XML finden?

[LPascal]

Ok... müsste also so gehen, aber irgendwie mache ich noch was falsch, und ich verstehe nicht was.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  Doc: TXMLDocument;
  RootNode, ParentNode, DatenNode, VarElemen: TDOMNode;
begin
  try
    ReadXMLFile(Doc, 'Muster.xml');

    //Doc := TXMLDocument.Create;
    RootNode := Doc.CreateElement('Personen');
    Doc.Appendchild(RootNode);

    RootNode:= Doc.DocumentElement;

    ParentNode := Doc.CreateElement('Anrede');
    VarElemen := Doc.CreateTextNode('Herr');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Vorname');
    VarElemen := Doc.CreateTextNode('Michael');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Nachname');
    VarElemen := Doc.CreateTextNode('Lücker');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);

    ParentNode := Doc.CreateElement('Alter');
    VarElemen := Doc.CreateTextNode('19');
    ParentNode.Appendchild(VarElemen);
    RootNode.AppendChild(ParentNode);


    DatenNode := Doc.DocumentElement.FindNode('Daten');
    DatenNode.AppendChild(RootNode);


    WriteXMLFile(Doc, 'MusterNeu.xml');
  finally
    Doc.Free;
  end;
end;