Закрасить цветом выделенную строку в DBGrid

void __fastcall TForm1::DBGrid3DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
if
(DBGrid3->SelectedIndex) 
  {
  DBGrid3->Canvas->Brush->Color = clFuchsia;
  }
DBGrid3->DefaultDrawColumnCell( Rect, DataCol, Column, State );
}

if  (DBGrid3->SelectedIndex & DBGrid3->Canvas->Brush->Color==clWindow)

if(State.Contains(gdSelected))

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

if(DBGrid1->SelectedRows->CurrentRowSelected)

// Hack Class
class TMyDBGrid : public TDBGrid
{
public:
    __property Row;
    __property DataLink;
};
 
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
    const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
    TMyDBGrid *grid = static_cast<TMyDBGrid*>(Sender);
    if (grid->DataLink->ActiveRecord == grid->Row - 1)
    {
        grid->Canvas->Brush->Color = clBlue;
        grid->Canvas->Font->Color = clWhite;
    }
    grid->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}