Delphi中怎么实现DBGrid中选中行颜色

Delphi中如何实现DBGrid中选中行颜色
如何在delphi中控制 DBGrid 选中行的整体颜色，当光标上下移动或者鼠标选行时也能自动跟着改变整行颜色！目的主要是为了选中某行时能通过颜色清晰分辨出来。求代码，谢谢
------解决思路----------------------
 OnDrawCell  里写代码。

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

Var Row : integer;

begin

  Row := DBGrid1.DataSource.DataSet.RecNo;

  If (Row mod 2)<>0

    Then DBGrid1.Canvas.Brush.Color:=$00FF0000;

    Else DBGrid1.Canvas.Brush.Color:=$00FFFFC1;

  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

代码请参考。