delphi 一个关于xml文件导入数据库的问题

function LoadXml(shortPath:string;var xmlobj: IXMLDOMDocument):boolean;var tmpXml:IXMLDOMDOCUMENT;begin   shortPath:=localPath+shortPath;   if not FileExists(shortPath) then     begin      LoadXml:=false;      exit;     end;   tmpxml := CreateOLEObject('Microsoft.XmlDom') as IXMLDOMDocument;   tmpxml.async := false;   tmpxml.load(shortPath);   if tmpxml.parseError.errorCode <> 0 then     begin       LoadXml:=false;       Exit;     end;   xmlobj:=tmpxml;   tmpxml:=nil;   Loadxml:=true;end;procedure InitNetInfo(var theNet:netInfoType);var objxml:IxmlDomdocument;    Node1:IxmlDomNode;beginif not Loadxml(iniFile,objXml) then exit;Node1:=objXml.selectSingleNode('//DefaultIP');if Node1<>nil then theNet.Csdn_IP:=Node1.text;Node1:=objXml.selectSingleNode('//DefaultPath');if Node1<>nil then theNet.Csdn_Path:=Node1.text;Node1:=objXml.selectSingleNode('//UseProxy');if Node1<>nil then theNet.flg_UseProxy:=StrtoBool(Node1.text);Node1:=objXml.selectSingleNode('//ProxyIP');if Node1<>nil then theNet.prx_IP:=Node1.text;Node1:=objXml.selectSingleNode('//ProxyPort');if Node1<>nil then theNet.prx_Port:=Node1.text;Node1:=objXml.selectSingleNode('//ProxyUser');if Node1<>nil then theNet.prx_User:=Node1.text;Node1:=objXml.selectSingleNode('//ProxyPass');if Node1<>nil then theNet.prx_Pass:=Node1.text;//其他信息Node1:=objXml.selectSingleNode('//HeadSize');if Node1<>nil then HeadSize:=strtoint(Node1.text);Node1:=objXml.selectSingleNode('//TopicSize');if Node1<>nil then TopicSize:=strtoint(Node1.text);objxml:=nil;Node1:=nil;end;