P.S.
What BeginUpdate do?
This call prevent NextGrid from drawing EACH new or changed Cell until operation is finished. Also all complicated calculations needed for drawing Cell is skiped too. This can speed up your code a lot!

We will draw this rows ONLY after we finish with operation, and ONLY we will draw visible Cells on screen. After you finish with adding rows, ALLWAYS call EndUpdate.

procedure Frm_main_t2_OnChange (Sender: TObject);
var
i,c, col:Integer;
begin
  c := Frm_main.t2.RowCount-1;  // количество строк
  col := Frm_main.t2.Columns.Count-1; // количество колонок

if Form1.TableGrid1.RowCount > 0   then begin
   if  Frm_main.t2.Cells[8,c] = 'задолженность'  then   // если во 2-й колонке последней записи есть слово задолженность
     begin
       for i := 0 to col do  // проходим по всем колонкам
           Frm_main.t2.Cell[i,c].Color := $006B8DE7; // присваиваем цвет ячейкам в каждой колонке в последней строке
     end;
end;
end;

БОЛЬШОЕ СПАСИБО!

procedure Frm_main_t2_OnChange (Sender: TObject);
var
i,c, col:Integer;
begin
  c := Frm_main.t2.RowCount-1;  // количество строк
  col := Frm_main.t2.Columns.Count-1; // количество колонок

if Form1.TableGrid1.RowCount > 0   then begin
   if  Frm_main.t2.Cells[8,c] = 'задолженность'  then   // если во 2-й колонке последней записи есть слово задолженность
     begin
       for i := 0 to col do  // проходим по всем колонкам
           Frm_main.t2.Cell[i,c].Color := $006B8DE7; // присваиваем цвет ячейкам в каждой колонке в последней строке
     end;
end;
end;

Vickus wrote:

Появился вопрос.
Если записей нет, то скрипт выдает ошибку. Можно ли как-то изменить скрипт, чтобы ошибка не появлялась, либо выходило сообщение, что записей нет?
Еще раз спасибо.

поместите код в этот блок

if Form1.TableGrid1.RowCount > 0   then begin
здесь код
end;

Простите, что сразу не ответил. Не пойму куда это условие вставить.
Вот мой код:
procedure Frm_main_t2_OnChange (Sender: TObject);
var
i,c, col:Integer;
begin
  c := Frm_main.t2.RowCount-1;  // количество строк
  col := Frm_main.t2.Columns.Count-1; // количество колонок

   if  Frm_main.t2.Cells[8,c] = 'задолженность'  then   // если во 2-й колонке последней записи есть слово задолженность
     begin
       for i := 0 to col do  // проходим по всем колонкам
           Frm_main.t2.Cell[i,c].Color := $006B8DE7; // присваиваем цвет ячейкам в каждой колонке в последней строке
     end;
end;

Появился вопрос.
Если записей нет, то скрипт выдает ошибку. Можно ли как-то изменить скрипт, чтобы ошибка не появлялась, либо выходило сообщение, что записей нет?
Еще раз спасибо.

поместите код в этот блок

if Form1.TableGrid1.RowCount > 0   then begin
здесь код
end;

Vickus wrote:

sibprogsistem wrote:

var
i,c:Integer;
begin
  c:= Form1.TableGrid1.RowCount-1;
   if  Form1.TableGrid1.Cells[1,c]= 'задолженность'  then   Form1.TableGrid1.Cell[1,c].Color := $006B8DE7;

Я так понял, что Вы оптимизировали код скрипта, но мне нужно, чтобы он применялся только для последней созданной записи

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
i,c, col:Integer;
begin
  c:= Form1.TableGrid1.RowCount-1;  // колл строк
  col:= Form1.TableGrid1.Columns.Count-1; // колл колонок

   if  Form1.TableGrid1.Cells[1,c]= 'задолженность'  then   // если во 2-й колонке последней записи есть слово задолженность
     begin
       for i:=0 to col do  // проходим по всем колонкам
           Form1.TableGrid1.Cell[i,c].Color := $006B8DE7; // присвеваем цвет ячейкам в каждай колонке в последней строке
     end;
end;

Появился вопрос.
Если записей нет, то скрипт выдает ошибку. Можно ли как-то изменить скрипт, чтобы ошибка не появлялась, либо выходило сообщение, что записей нет?
Еще раз спасибо.

sibprogsistem wrote:

var
i,c:Integer;
begin
  c:= Form1.TableGrid1.RowCount-1;
   if  Form1.TableGrid1.Cells[1,c]= 'задолженность'  then   Form1.TableGrid1.Cell[1,c].Color := $006B8DE7;

Я так понял, что Вы оптимизировали код скрипта, но мне нужно, чтобы он применялся только для последней созданной записи

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
i,c, col:Integer;
begin
  c:= Form1.TableGrid1.RowCount-1;  // колл строк
  col:= Form1.TableGrid1.Columns.Count-1; // колл колонок

   if  Form1.TableGrid1.Cells[1,c]= 'задолженность'  then   // если во 2-й колонке последней записи есть слово задолженность
     begin
       for i:=0 to col do  // проходим по всем колонкам
           Form1.TableGrid1.Cell[i,c].Color := $006B8DE7; // присвеваем цвет ячейкам в каждай колонке в последней строке
     end;
end;

примените тоже самое только для строки row

Вставил Ваш код - он выделил цветом последнюю ячейку с надписью "Задолженность".
Можете полностью код выложить. К сожалению, я не специалист, только пытаюсь научиться. Спасибо.

var
i,c:Integer;
begin
  c:= Form1.TableGrid1.RowCount-1;
   if  Form1.TableGrid1.Cells[1,c]= 'задолженность'  then   Form1.TableGrid1.Cell[1,c].Color := $006B8DE7;

Я так понял, что Вы оптимизировали код скрипта, но мне нужно, чтобы он применялся только для последней созданной записи

Что именно вы имеете ввиду под последней? Просто последняя строчка в компоненте? или последняя созданная запись?

последняя созданная