unit dumy1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, Grids, DBGrids;    type
  TDBGrid=class(DBGrids.TDBGrid)
  public
    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
  end;      TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
  procedure FormCreate(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;    var
  Form1: TForm1;    implementation
{$R *.dfm}
{ TDBGrid }
function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;MousePos: TPoint): Boolean;
begin
  if WheelDelta > 0 then
    datasource.DataSet.Next;
  if wheelDelta < 0 then
    DataSource.DataSet.Prior;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.open;
end;    end.