Выделить цветом строки/текст в гриде по условию

//Вывод количества дней рождений сегодня
       p1:=StrToInt(IntToStr(monthOf(DateTimePicker1.Date)) + RightStr('0'+IntToStr(dayOf(DateTimePicker1.Date)),2));
       ADOQ.Close;
       ADOQ.SQL.Clear;
       ADOQ.SQL.Add('select * FROM telbase WHERE drr=:q1 order by drr');
       ADOQ.Parameters.ParamByName('q1').Value:=p1;
       ADOQ.Open;
       Label21.Caption:=inttostr(ADOQ.RecordCount);

ADOQ.Open;

   DBGrid1OnDrawColumnCell
begin
 
if (ADOQuery1.FieldByName('Юбиляры').AsString='Юбиляр') then     
 begin                                                            
  with  DBGrid1.Canvas do                                        
   begin                                                           
    Brush.Color:=clGreen;                                          
    Font.Color:=clWhite;                                          
    DBGrid1.OnDrawColumnCell(Rect, DataCol, Column, State); 
   end;                                                            
 end;                                                            
 
end;