procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
RowHeight = 18;
begin
DBGrid1.Canvas.Font.Color := clBlack;
if Odd(rect.top div RowHeight) then
DBGrid1.canvas.Brush.Color := clAqua
else
DBGrid1.Canvas.Brush.Color := clWhite;
DBGrid1.canvas.TextRect(rect,rect.Left,rect.top,table.fields[DataCol].AsString);
end;