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 <>  then
 
     begin
 
       LoadXml:=false;
 
       Exit;
 
     end;
 
   xmlobj:=tmpxml;
 
   tmpxml:=nil;
 
   Loadxml:=true;
 
end;
 
procedure InitNetInfo(var theNet:netInfoType);
 
var objxml:IxmlDomdocument;
 
    Node1:IxmlDomNode;
 
begin
 
if 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;