[Alegun]

Можно, нужно раскрашивать строки "под зебру" в DrawColumnCell

Код:

var i: integer = 0;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with Sender as TDBGrid do
  begin
   if(DataCol  = 0) then inc(i);
   if (i mod 2 = 0) then
    begin
     Canvas.Font.Color := clBlack;
     Canvas.Brush.Color:= clCream;
    end else
     begin
      Canvas.Font.Color := clBlack;
      Canvas.Brush.Color:= clWhite;
     end;
   DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;