[Максон]

немного переделал, добавление строк идет, но в конце нумерации появляются совсем другие числа

Код:

 //запуск цикла по строкам
    for   iRows:=1 to strngrd1.RowCount-1 do
    begin

         if strngrd1.Cells[19, iRows]='есть' then
         begin

             T.Rows.Add(N);
//объявленная переменная счетчика таблицы1
             for i:=1 to T.Rows.Count-1 do
              begin

             T.Cell(i+3 ,1).Range.Text:= IntToStr(i) + '.';

             end;
          end;

             if strngrd1.Cells[19, iRows]='нет' then
             begin

                L.Rows.Add(M);
//переменная для таблицы2
                for j:=1 to L.Rows.Count-1 do
              begin
               L.Cell(j+3 ,1).Range.Text:= IntToStr(j) + '.';

               end;

             end;