Окрас строки таблицы по кнопке

Строки в таблице "раскрашиваются" в обработчике OnChange.

см. пример в  http://myvisualdatabase.com/forum/viewtopic.php?id=1087

Для разукрашивания этот скрипт нашел

var
   i,c: integer;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.GridEmployees.Cells[3,i] = 'Да' then Form1.GridEmployees.Cell[3,i].Color := clRed
             else Form1.GridEmployees.Cell[3,i].Color := clGreen;
     end;
end;

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

требуется сделать кнопку снять и взять. при нажатии на кнопку будет окрашиваться в тот или иной цвет выделенная строка в таблице. реализацию вижу в виде записи в таблицу 1 или 0  где 1 будет взять 0 снять и в зависимости от 1 или 0 будет присвоен цвет строки . как реализовать окрас строки я нашел. а вот как сделать что бы строка редактировалась и записывалась туда 1 или 0 без дополнительного окна я так и не понял.

Доработал ваш проект