在鼠标的MouseWheel事件里写入以下内容

if WheelDelta < 0 then
    SendMessage(scrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0) //向下滚
  else
    SendMessage(scrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0); //向上滚

即可响应鼠标滚轮