problema no comando

[deio 0]

estava eu fazendo algumas modificações no programa, e quando fui testá-lo essa função deixou de funcionar no dbgrid :

private     procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);(...)procedure TForm1.OnMessageOwn(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;

[deio 0]

alguém saberia resolver?

[marcio.theis 3]

Qual é o evento do formulário que esta usando ?