Open XMLでエラーが出ます

解決

QZ 2014-01-11 17:11:49 No: 45840

お世話になります。
Open XMLのサイト
http://www.delphipraxis.net/82664-openxml-xdom-4-1-tutorial.html
を見て、以下のテストプログラムを作ったのですがエラーが出ます。
DOMImplementation not specified.というエラーですがどう直せばいいんでしょうか？
----------
procedure TForm1.Button1Click(Sender: TObject);
var
   FDoc: TDomDocument;
   FNodeElement: TDomElement;
   FNodeText: TDomText;
   FNodeComment: TDomComment;
   var s: String;
begin
   FDoc := TDomDocument.Create(DomImplementation1);
   FNodeElement := TDomElement.Create(FDoc, 'RootNode');
   FDoc.AppendChild(FNodeElement);
   FNodeElement := TDomElement.Create(FDoc, 'NodeGroup');
   FDoc.FindFirstChildElement.AppendChild(FNodeElement);
   FNodeElement := TDomElement.Create(FDoc, 'Node1');
   FDoc.FindFirstChildElement.ChildNodes.Item(0).AppendChild(FNodeElement);
   FNodeText := TDomText.Create(FDoc);
   FNodeText.NodeValue := 'Text1';
   FDoc.FindFirstChildElement.ChildNodes.Item(0).FindFirstChildElement.AppendChild(FNodeText);
   FNodeElement := TDomElement.Create(FDoc, 'Node2');
   FDoc.GetElementsByTagName('NodeGroup').Item(0).AppendChild(FNodeElement);

   FNodeText := TDomText.Create(FDoc);
   FNodeText.NodeValue := 'Text2';
   FDoc.GetElementsByTagName('Node2').Item(0).AppendChild(FNodeText);
   FDoc.FindFirstChildElement.SetAttribute('Attr1', 'Wert1');

    with TDomElement(FDoc.GetElementsByTagName('NodeGroup').Item(0).ChildNodes.Item(1)) do
   begin
     SetAttribute('Attr2', 'Wert2');
     SetAttribute('Attr3', 'Wert3');
   end;
   FNodeComment := TDomComment.Create(FDoc);
   FNodeComment.NodeValue := 'Kommentar';
   FDoc.FindFirstChildElement.AppendChild(FNodeComment);

DomToXmlParser1.WriteToString(FDoc, 'UTF-8', s);//ここでエラーは発生
Memo1.Text := s;
end;
----------

QZ 2014-01-12 14:58:16 No: 45841

自己レスです。
左側のオブジェクトインスペクタでDomToXmlParser1のプロパティDOMImpにDomImpletationを入力（選択？）するとエラーが出ないようになり、Memo1にテキストが表示されました。