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;
In der letzen Zeile überschreist Du die Adresse des RootNodes.
Mag sein, dass das nicht so sein soll - wie schaut denn Dein Ergebnis aus?
Grüße
Klaus