XML Probleme Datei erstellen

[MoreThanWords]

Hallo

Sorry, dass ich schon wieder mit diesem Thema komme aber irgendwie schaffe ich es nicht eine XML Datei zu erstellen.

Code:

procedure TForm2.Button3Click(Sender: TObject);
var Sub,
    Node : IXMLDOMNode;
    DomDoc: TDOMDocument;
begin
   DomDoc:= TDOMDocument.Create(self);
   sub:= DOMDocument1.createElement('MeinNode');
   sub.Text:= 'Hallo Welt';

   node:= DomDoc.documentElement; //DomDoc.documentElement ist nil???
   node.appendChild(sub);  //hier bekomme ich Zugriffsverletzung
   ShowMessage(DOMDoc.documentElement.xml);

   //...Speichern mit DomDoc.Save.....
end;

Diesen Code hab ich aus einem Beitrag aus diesem Forum aber bei mir scheint er nicht richtig zu funktionieren. An den Versionen von MSXML kann es nicht liegen ich hab (2,3,4) bereits ausprobiert.

Kann mir jemand helfen.

Danke