procedure TForm3.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
   if Msg.Message=WM_MOUSEWHEEL then
    if Msg.wParam>0 then
   Handled := (ActiveControl = ComboBox1 = Handled = True);
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
MP: TPoint; {координаты X,Y}
a: TComponent;
begin
  {Если прокручено колесико мыши}
   if Msg.Message=WM_MOUSEWHEEL then
   begin
    {Запретить прокрутку колеса, для всех объектов}
    Msg.Message:= 0;

    {Снять фокус с предыдущего, используемого, компонента}
    SetFocusedControl(Form1);

    {Получить координаты курсора}
    GetCursorPos(MP);

    {Найти компонент под курсором. True или False - определяют,
     будут ли учитываться заблокированные (disabled) объекты}
    a:= (FindDragTarget (MP,false));

    {Разрешить прокручивание колеса для компонента,
     по имени, к примеру, "ComboBox5"}
    if a.Name='ComboBox5' then
    Msg.Message:= WM_MOUSEWHEEL ;

    {Разрешить прокручивание колеса для всех компонентов типа "TrackBar"}
    if a.ClassType=TTrackBar then
    Msg.Message:= WM_MOUSEWHEEL ;
   end;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
MP: TPoint;
a: TComponent;
begin
   if ActiveControl.ClassType <> TComboBox then {Если "ComboBox" не выделен}
   if Msg.Message=WM_MOUSEWHEEL then            {Если прокручено колесико мыши}
   begin
    Msg.Message:= 0;                  {Запретить прокрутку колеса, для всех объектов}
    SetFocusedControl(Form1);         {Снять фокус с предыдущего, используемого, компонента}
    GetCursorPos(MP);                 {Получить координаты курсора}
    a:=(FindDragTarget(MP,false));    {Найти компонент под курсором. True или False - определяют,
                                       будут ли учитываться заблокированные (disabled) объекты}
    if a.Name='ComboBox5' then        {Разрешить прокручивание колеса для компонента,}
    Msg.Message:= WM_MOUSEWHEEL ;     {по имени, к примеру, "ComboBox5"}

    if a.ClassType=TTrackBar then     {Разрешить прокручивание колеса для всех компонентов типа "TrackBar"}
    Msg.Message:= WM_MOUSEWHEEL ;
   end;
end;

SetFocusedControl(Form1);

ActiveControl:=ScrollBox1;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
MP: TPoint; {координаты X,Y}
a: TComponent;
begin
GetCursorPos(MP);                          {Получить координаты курсора}
if  (MP.X>BoundsRect.Left)                 {Если курсор на форме, а не за ее пределами, то выполнить условие}
and (MP.Y>BoundsRect.Top)
and (MP.X<BoundsRect.Right)
and (MP.Y<BoundsRect.Bottom)
then
  if Msg.Message=WM_MOUSEWHEEL then             {Если прокручено колесико мыши}
  begin
  Msg.Message:= 0;                              {Запретить прокрутку колеса, для всех объектов}
     if ActiveControl.ClassType=TTrackBar then  {Если выбран один из объектов TrackBar}
      begin
          a:=(FindDragTarget(MP,false));        {Искать компонент под курсором}
       if a.ClassType=TTrackBar then            {Если под курсором TrackBar}
          Msg.Message:= WM_MOUSEWHEEL ;         {Разрешить прокручивание колеса}
  
       if (a.Name='TrackBar5') or               {Если под курсором, находится,}
          (a.Name='TrackBar6') then             {"TrackBar5" или "TrackBar6"}
          Msg.Message:= 0;                      {Запретить прокручивание колеса}
      end;
  end;
end;