مشكل در حركت نكردن اسكرول در DBGrid

با سلام و تبريك سال نو به همه دوستان عزيز.
سوالم در مورد dbgrid ااين هست كه وقتي اطلاعاتي رو از بانك ميخونم و در dbgrid نمايش ميدم با حركت دادن دكمه وسط موس اسكرول مربوط به dbgrid حركت نميكنه. ميخواستم راهنمايي كنيد كه بايد چه طور اين مشكل رو حل كنم؟

یه ApplicationEvent از سربرگ Additional به فرم اضافه کن و در رویداد On Message اون کد زیر رو قرار بده

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;