Farve hver 2. linie i DB grid

Jeg har tidligere med held brugt:

procedure TfrmCalendarWeek.grdCalendarWeekDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if qryCalendarWeek.RecNo Mod 2 = 0 then
    grdCalendarWeek.Canvas.Brush.Color := clSilver
  else
    grdCalendarWeek.Canvas.Brush.Color := clDkGray;
  if (gdSelected in State) then
    grdCalendarWeek.Canvas.Brush.Color := clHighlight;
  grdCalendarWeek.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Linien med gdSelected er vist for at markere den aktive linie med en anden farve (jeg bruger ikke de alm. DBGrids mere og i DevExpress er det lavet en del anderledes)

Koden skal selvfølgelig tilpasses - det er et klip fra et gammel projekt fra 2010 :-)

luk