1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure tform8.appmessage(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;