我想把一个.xml文件转换成excel文件，使用 delphi该如何实现啊(50分)

??
说清楚
最好有具体的固定的格式！

使用什么控件读取啊，采用什么控件转换为excel？
xml具体文件内容如下
<?xml version="1.0" encoding="GBK"?>

<SCHEMA NAME="YSFPCGL" CHSNAME="货物运输发票清单" SSSQ="200402" CRC="CRC200402_320381000000001.XML">
<TAXPAYER SWSBH="320381000000001" NSRMC="中国运输有限公司" SBRQ="2004-02-22" RECORDCOUNT="2" CJLX="CGDK" CJRDM="320381000000001" CJRMC="中国运输有限公司">
<Records><Record KPRQ="2004-02-22" FPHM="0123456" KPJE="500" XFSWSBH="32038100000001" XFNSRMC="承运单位名称一" GFSWSBH="3203810000000002" GFNSRMC="取得运输发票单位名称"/><Record KPRQ="2004-02-22" FPHM="0123457" KPJE="1500" XFSWSBH="32038100000001" XFNSRMC="承运单位名称二" GFSWSBH="3203810000000002" GFNSRMC="取得运输发票单位名称二"/></Records></TAXPAYER>
</SCHEMA>

用adotable loadfromfile() 之后，
然后 createobject('excel.application')
然后 一个字段一个字段给 excel.的 cells(i,j) 赋值补救得了
呵呵

我认为该分二步：
1.读入XML文件
2.导出excel文件
在http://www.playicq.com/toolsnew.php的delphi使用技巧中都有

多人接受答案了。