Подсветить строку в гриде

void __fastcall TMainForm::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
if (State.Contains(Grids::gdSelected))
         {
           DBGrid1->Canvas->Brush->Color = OptionsForm->ColorBox3->Selected;
           DBGrid1->Canvas->Font->Color = OptionsForm->ColorBox4->Selected;
         }
           DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

void __fastcall TMainForm::InsertandUpdate1DBGrid1DrawColumnCell(TObject *Sender,
          const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
 
{
 
             if(ADOQuery1->FieldByName("Department")->AsString == "СиЭ")
             {
              InsertandUpdate1->DBGrid1->Canvas->Brush->Color = clRed;
              InsertandUpdate1->DBGrid1->Canvas->Font->Color = clAqua;
             }
 
             InsertandUpdate1->DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
 
 
}
//---------------------------------------------------------------------------

if(DataModuleABS->ADOQueryMessage->FieldByName("ВыделитьНовость")->AsBoolean == 1)
             {
              DBGrid1->Canvas->Brush->Color = clGray;
              DBGrid1->Canvas->Font->Color = clAqua;
             }
 
             DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

void __fastcall TMessageNews::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect,
          int DataCol, TColumn *Column, TGridDrawState State)
{
if(DataModuleABS->ADOQueryMessage->FieldByName("ВыделитьНовость")->AsBoolean == true)
             {
              DBGrid1->Canvas->Brush->Color = clGray;
              DBGrid1->Canvas->Font->Color = clAqua;
             }
 
             DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}