xml(22分)

自己动态创建一个xmldocument对象代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var // xml:Txmldocument;
root,cmd,para:IXMLNode;
s1:string;
begin
s1:='<?xml version="1.0" encoding="GB2312"?><客户端操作><cmd>s</cmd><para>s</para></客户端操作>';
xml:=Txmldocument.Create(nil);
xml.Active:=false;
xml.Encoding:='GB2312';（1）
xml.XML.Text:=s1;
xml.Active:=true;
root:=xml.DocumentElement;（2）

xml.Free;
end;
（1），（2）都会报内存访问错误！！！如果不动态创建直接使用控件是可以的！！！大侠们帮帮忙吧！实在没什么分了！！！谢谢