dataset中数据导到EXCEL模板中，但单元格[col,row]右边的单元格不为[col+1,row]时，如何处理？(30分)

本人实在没分，分少还请谅解，谢谢各位！
dataset中数据导到EXCEL模板中，但单元格[col,row]右边的单元格不为[col+1,row]时，如何处理？

我的过程大致如下，现在的问题也就是操作excel的问题，当excel中出现了单元格合并的情况时，此时C6右边的单元格不为D6,可能为E6或F6。
如何求一个单元格右边的单元格和下边的个单元格的row跟col？

ExcelObj:=GetActiveOLEObject('Excel.application')；
wb := ExcelObj.WorkBooks.Open(aBookFile) ;
wss := wb.WorkSheets ;
ws := wb.WorkSheets[aSheetName] ;
ws.Activate;
.....//根据据起始位置 导出dataset中的数据到excel
row := rowbegin ;
col := colBegin ;
aDataSet.First ;
while not aDataSet.Eof do
begin
col := colbegin ;

for i:=0 to aDataSet.Fields.Count-1 do
begin
if aDataSet.Fields.Visible Then
begin
ws.Cells[row,col].value:=aDataSet.Fields.AsString;
inc(col);
end;
end;
row:=row + 1;
aDataSet.Next;
end;