为什么不能动态创建？

Question

var
  XMLDocument1: TXMLDocument;
begin
  XMLDocument1:=TXMLDocument.Create(nil);
  XMLDocument1.FileName:='tmpPrint.xml';
  XMLDocument1.Active:=True;
  try
    Common_Node := XMLDocument1.DocumentElement.ChildNodes[0];
    commonchild_Node:= common_Node.ChildNodes.first;
  except
  on E:Exception do
    ShowMessage(E.Message);
  end;
end
这段代码一直出现异常，XMLDOCUMENT因该怎么来动态创建？请高手指点！！！！！

Answer 1

var
  XMLDocument1: TXMLDocument;
begin
  XMLDocument1:=TXMLDocument.Create(nil);
  try
    XMLDocument1.FileName:='tmpPrint.xml';
    XMLDocument1.Active:=True;
    try
      Common_Node := XMLDocument1.DocumentElement.ChildNodes[0];
      commonchild_Node:= common_Node.ChildNodes.first;
    except
      on E:Exception do
      ShowMessage(E.Message);
    end;
  finally
    XMLDocument1.Free;
  end;
end

Answer 2

是不是要引用一下TXMLDocument类的定义啊

Answer 3

to chutian(我很丑???) 不行吧，跟我那一样的问题
报错说XMLDocument1没有分配空间。