Как обработать прокрутку мыши при нажатой кнопке Ctrl

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then
    begin
      if ShortInt(HiWord(Msg.wParam)) > 0 then
        // прокрутка колеса в одну сторону
      else
        // прокрутка колеса в другую сторону
    end;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var MP: TPoint;
    Control: TWinControl;
begin
  if Msg.message = WM_MOUSEWHEEL then
    begin
      MP.X := Word(Msg.lParam);
      MP.Y := HiWord(Msg.lParam);
 
      Control := FindVCLWindow(MP);
 
      if Control = nil then
        Handled := True
      else if Control.Handle <> Msg.hwnd then
        begin
 
          if Control = Panel1 then
            begin
              if ShortInt(HiWord(Msg.wParam)) > 0 then
                Caption := 'Panel ++'
              else
                Caption := 'Panel --';
            end;
 
          if Control = Button1 then
            begin
              if ShortInt(HiWord(Msg.wParam)) > 0 then
                Caption := 'Button ++'
              else
                Caption := 'Button --';
            end;
 
          SendMessage(Control.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
          Handled := True;
        end;
    end;
end;