DBGrid zebrado

[Paulao]

Hizo mi codigo para poner el DBgrid con listras y no funciono. Mi delphi es el 5(Delphi 5). Mi codigo abajo es: El error estas en las lines con comentarios.

Código Delphi [-]
procedure TfrmRelGerencialMT.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if not odd(qryAlimentadores.RecNo)then
  begin
    DBGrid1.Canvas.Brush.Color:= clHighlight;
    DBGrid1.Canvas.FillRect(Rect);
    //DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);

   if gdFocused in State then
   begin
     DBGrid1.Canvas.Brush.Color:= clBlack;
     DBGrid1.Canvas.FillRect(Rect);
     //DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
   end;

  end
end;