XML fehlende Nodes automatisiert erstellen

[Der schöne Günther]

Eine IXMLNode hat die Methode AddChild(..) Beispiel:

Delphi-Quellcode:

procedure TForm17.Button1Click(Sender: TObject);
const
   nodePath = '/ersterNode/nocheiner/nasowas';
var
   asDoc:      IXMLDocument;
   asNode:      IXMLNode;
   newNode:   IXMLNode;
begin
   asDoc := LoadXMLData(Memo1.Text);
   asNode := TXpathHelper.SelectNode(asDoc.DocumentElement, nodePath);
   newNode := asNode.AddChild('neuerKnoten');
   newNode.Attributes['someAttribute'] := 'derp';

   Memo2.Text := asDoc.XML.Text;
end;

Memo1:

Code:

<ersterNode>
 <nocheiner>
  <nasowas />
 </nocheiner>
</ersterNode>

Memo2:

Code:

<ersterNode>
   <nocheiner>
      <nasowas><neuerKnoten someAttribute="derp"/></nasowas>
   </nocheiner>
</ersterNode>