关于EXCEL报表的问题,请各位高手帮忙?(20分)

把小写钱数转成大写后如何插空到EXCEL空中,出错,帮忙看看为什么?
要求:每一小格插入一位数字
begin
curRow := 0;
inc(curRow, 8);
mJFSum := ADOQryJF.fieldbyname('SJjine').AsVariant;//将数据调出来从数据库中掉出
mJFSumStr := format('%f', [mJFSum]);
dx := SetXxToDx(StrToFloat(mJFSumStr));//调用小写转大写函数
//放入EXCLE表中
begin
j := 9;
for i := length(dx)do
wnto 0do
begin
ExcelApp.Cells[curRow, j] := copy(dx, i, 1);//依次插如EXCEL中,这句会报错
dec(j);
end;
end;
end;

把报的错误贴出来看看!

ole error 800a03ec

设EXCEL单元格为字符型应该可以搞定

多人接受答案了。