[cmfab]

Bueno logre adecuar este codigo

Código Delphi [-]
 
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;

Todo funciona de maravillas, pero necesito hacer lo mismo cuando el usuasrio
arrastra el scrooll bars por el boton que tiene en la barra de desplazamiento vertical. algo importante es que la rejilla de datos que utilizao es el cxGrid de las devexpress por si alguien las utiliza tambien

Gracias