Al usar TCanvas perdi la selección !!!

[ecfisa]

Hola Impadron.

Probá de este modo:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect,
   int DataCol, TColumn *Column, TGridDrawState State)
{
   if (ADOQuery1->RecNo % 2) {
     DBGrid1->Canvas->Brush->Color = clMoneyGreen;
     DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
   }
}

Saludos.