delphi数据库导入导出XML

procedureTForm1.inxmlClick(Sender:TObject);varXMLDocument1:TXMLDocument;node,xm_node,xm_node_info,kb_node,kb_node_info:IXMLNode;I,j,n,m:Integer;str:string;beginmemo2.Clear;XMLDocument1:=TXMLDocument.Create(application);XMLDocument1.LoadFromFile('C:\Users\Administrator\Desktop\test2\user.xm