delphi像excel中添加公式报错解决方法

delphi像excel中添加公式报错
我从数据库将数据导出到excel中，想在单元格中加公式，但是不是确定的行数，要通过循环查询才知道是第几行，公式如下
MsExcel.WorkSheets[1].Cells[iRow,iCol+1].Formula:='=Sum(INDEX(B:B,'+inttostr(iRow)+')):INDEX(B:B,'+inttostr(iRowm)+'))';
但是这句话报错，OLE ERROR 800A03EC不知道该怎么修改，是不是这个公式写的不对呢？大家帮我看看，谢谢了！
[解决办法]
你公式错了..

多了个)

MsExcel.WorkSheets[1].Cells[iRow,iCol+1].Formula:='=Sum(INDEX(B:B,'+inttostr(iRow)+'):INDEX(B:B,'+inttostr(iRowm)+'))';