[Black Raider]

Все дело в том что вы опять с циклами запутались

Эту строчку

Код:

if strngrd1.Cells[18, strngrd1.RowCount-1]='есть' then
begin

надо
примерно тут:

Код:

//запуск цикла по строкам и столбцам
  for   iRows:=1 to strngrd1.RowCount-1 do
  //for   Cols:=1 to strngrd1.ColCount-1 do
  begin
  // нумерация строчек
if strngrd1.Cells[18, strngrd1.RowCount-1]='есть' then
begin
  T.Cell(iRows+3 ,1).Range.Text:= IntToStr(iRows ) + '.';