xe2 滚轮控制stringgrid翻页的问题

Question

D7里面用这个网上下载的代码，可以实现用滚轮控制stringgrid 翻页。但是在xe里面编译后，就无法控制了，滚轮向下滚，焦点往上跑，到顶就再也没反映了。请问是什么原因，如何解决？procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;  
var  Handled:  Boolean);  
begin  
if  (stringGrid1.Focused)  And  (Msg.message  =  WM_MOUSEWHEEL)  then  
begin  
if  Msg.wParam  >  0  then  
SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_UP,  0)  
else  
SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_DOWN,  0);  
Handled  :=  True;  
end;  
end;