[Electronic_Arts]

Спасибо за наводку - сделал вот так и сработало...

Код:

procedure TCVForm.HandleMousewheel(var Msg: TMsg; var Handled: Boolean);
var
i : integer;
s : string;
begin
   case Msg.message of
      WM_MOUSEWHEEL:
      begin
         if (Screen.ActiveForm.ActiveControl <> nil) and
            (Screen.ActiveForm.ActiveControl.ClassName = 'TDBLookupComboBox') then
         begin
            Msg.message := WM_KEYDOWN;
            Msg.lParam := 0;
            s := '$' + inttohex(MSG.wParam, 1);
            i := StrToInt(s);
            if i > 0 then
             Msg.wParam := VK_UP
             else
             Msg.wParam := VK_DOWN;
             Handled := false;
         end;
      end;
   end;
end;