void __fastcall TForm1::ScrollBox1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
 {
   ScrollBox1->VertScrollBar->Position -= WheelDelta;
 }

본명이신지 가명인지 모르겠지만, 제 아들 이름과 같군요. ^^

안성준 님이 쓰신 글 :
: 안녕하세요...
:
: 개발하고 있는 프로그램에 TScrollBox 컨트롤을 사용하고 있는데요 스크롤 막대가 마우스로 드래그 하면 움직이는데 휠마우스로는 움직이지 않네요?
:
: 이거 휠마우스로 움직일 수 있는 방법은 없는건가요?
: 그리고 그렇게 할 수 없다면 혹시 TScrollBox 와 같은 기능이 되면서 휠마우스도 되는 상용 컨트롤이나 무료 컨트롤 어디 없을까요??
:
: 아시는 분 조언 부탁드릴께요...