Как правильно использовать колесо мыши в TDBGrid

procedure TForm1.ApplicationEvents1Message
    (var Msg: TMsg; var Handled: Boolean) ;
 var
    i: SmallInt;
 begin
    if Msg.message = WM_MOUSEWHEEL then
    begin
      Msg.message := WM_KEYDOWN;
      Msg.lParam := 0;
      i := HiWord(Msg.wParam) ;
      if i > 0 then
        Msg.wParam := VK_UP
      else
        Msg.wParam := VK_DOWN;

      Handled := False;
    end;
 end;

Примечание: Это исправляет поведение колесика мыши не только для DBGrid, но и для всех других компонентов списка (TListBox, TListView и т.д.).