팁에 "디비그리드 스크롤예제들입니다_정리용" 라는 제목으로 올려 놓았는데요 참조해보시구요
아래는 여러방법을 예로 들었습니다.
아래는 Comment를 풀어가면서 테스트해보세요
unit Unit1;

interface
...
  private
    { Private declarations }
    procedure MOUSEWHEELMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.OnMessage:= MOUSEWHEELMessage;
end;
procedure TForm1.MOUSEWHEELMessage(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.Message = WM_MOUSEWHEEL then begin
    if ActiveControl = TControl(DBgrid1) then begin
       if Msg.wParam > 0 then begin
            //SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_UP,0);
            //SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_PRIOR,0);
            SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_LINEUP,0);
            //Table1.Prior;
         end
         else if Msg.wParam < 0 then begin
            //SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_DOWN,0);
            //SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_NEXT,0);
            SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
            //Table1.Next;
         end;
         //DBGrid1.Refresh;
       end;
    end;
end;
end.

hsr////////////////////////////////////////////////////////////