Вы неверно создали событие, недостаточно просто скопировать код, перед этим необходимо создать событие, с помощью инспектора объектов на вкладке "События", как это делается можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html
код события будет таким:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[2,i] = 'НОВАЯ' then Form1.TableGrid1.Cell[2,i].Color := clRed;
if Form1.TableGrid1.Cells[2,i] = 'Готов' then Form1.TableGrid1.Cell[2,i].Color := clGreen;
end;
end;
я лишь исправил номер столбца, с 3 на 2, т.к. нумерация столбцов начинается с нуля.
Dmitry.