Изменение цвета текста в гриде

Добрый вечер!
Подскажите как можно прописать в процедуре условие, если в 4 столбце дата больше 30 дней от текущей, цвет текста в строке окрашивается в синий цвет.
Попробывал сделать на основе окраски строк, не вышло, ведь тут нет условия значения ячейки.

procedure frmDic_TableGrid8_OnChange (Sender: TObject);
var
  i,c: integer;
   k,q: integer;
  YY, MM, DD: Word;
begin
     frmDic.TableGrid8.BeginUpdate;

     q := frmDic.TableGrid8.Columns.Count-1;
     c := frmDic.TableGrid8.RowCount - 1;
     for i := 0 to c do
     begin
             s := frmDic.TableGrid8.Cells[4,i];
             if ValidDate(s) then
                 if (StrToDate(s) - 30) > now then
                     for k := 0 to q do
                         frmDic.TableGrid8.Cell[k,i].TextColor := clNavy;
     end;