[Vladimr]

Самое интересное, что код взят из другого запроса

https://delphisources.ru/forum/showthread.php?p=158569

Даже ошибки в комментариях 100% одинаковые.

Зачем писать begin .. end если без него тоже все будет работать?

Код:

  for i := 1  to cou do
      for j := 1 to cou do
      begin
        Cells[i,j] := inttostr(table[i,j]);
      end;