[Страдалецъ]

Код:

ExcelSheet:=ExcelApp.Workbooks[1].WorkSheets['Отчёт'];
  For i:=0 To StringGrid2.RowCount-1 Do
    For j:=0 To StringGrid2.ColCount-1 Do
      for c:=17 to 21 do
        ExcelSheet.Cells[c, 8]:=StringGrid2.Cells[j, i];  //вот тут и проблемка

У меня мозг закипел в попытке понять, что вы этим кодом хотите сделать?

Скопировать матрицу из StringGrid в эксель? Тогда на кой бес вы завели цикл дополнительный?
for c:=17 to 21 do