在com里面动态创建TXMLDocument的问题,急!!!都来看看

我写的一个com组件里面需要解析xml,用的是TXMLDocument
代码如下
var
    XMLDocument1: TXMLDocument;
    Current: IXMLNode; 
begin
   TableCount:=0;
   CoInitialize(nil);
   XMLDocument1:=TXMLDocument.Create(nil);
   XMLDocument1.XML.Text:=Xml ;
   XMLDocument1.Active:=true;
   Current:=nil;
   Current:=XMLDocument1.DocumentElement.ChildNodes.First;----->vb调用这个com组件的时候,总是在这一句报错,
  请各位告诉指教!!!