Закрашивание строки dbgrid

[city32]

Здравствуйте. Подскажите следующий момент.Есть таблица в которой есть колонка с датой.
С помощью такого кода вычисляю разницу между датой в колонке и сегодняшней
Код вычисляется с помощью таймера через определенные промежутки времени

procedure Tgl_form.Timer_sertifTimer(Sender: TObject);
.......
form_sert.table_sert.First;
while not(form_sert.table_sert.Eof) do
  begin
SD:=form_sert.table_sert.FieldByName('okon_sertif').AsDateTime;
i:=DaysBetween(SD,today);
......
if i<30) then
begin
ShowMessage(...
end;
 form_sert.table_sert.Next;

Как теперь в цикле сделать что если выполняется условие и i<30 то строка dbgrida меняла свой цвет.

[SNUPY]

Как-то так (закрасит все ячейки в красный цвет):

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  with TDBGrid(Sender).canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
  end;
end;

[city32]

мне не надо чтобы все были закрашены а только те на которых выполняется условие, т.е. открыл я форму а красным цветом выделены те строки где разница между сегодняшней датой и датой в таблице была меньше чем 30 дней.
Как закрасить с помощью DBGrid1DrawDataCell я знаю а как это применить в цикле в таймере не могу докумекать.

[SNUPY]

Сообщение от city32

мне не надо чтобы все были закрашены а только те на которых выполняется условие, т.е. открыл я форму а красным цветом выделены те строки где разница между сегодняшней датой и датой в таблице была меньше чем 30 дней.
Как закрасить с помощью DBGrid1DrawDataCell я знаю а как это применить в цикле в таймере не могу докумекать.

ну так:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if <ваше условие> then
  with TDBGrid(Sender).canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
  end;
end;

[city32]

Как мне совместить мой код, который приведен в первом посте с твоим?

[SNUPY]

как-то так

if LowerCase(Field.FieldName) = 'okon_sertif' then
begin
  i := DaysBetween(Field.AsDateTime,today);
  if i<30 then
  with TDBGrid(Sender).canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
  end;
end;