mudar cor das linhas do dbgrid

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If odd(Table1.RecNo) then
     DBGrid1.Canvas.Brush.Color:= clWhite
  else
     DBGrid1.Canvas.Brush.Color:= clBlue;
  DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;