自己拖一个按钮，在按钮点击事件中处理以下事件，来实现拖动scrollbox的拖动条：     
VertScrollBar->Position   +=   WheelDelta;   
Handled   =   true; 
------------------------------
现在的问题是想实现：当按住此按钮不放时，实现滚动条不断的移动，相对于滚动条两端的那个小方向按钮功能。
void   __fastcall   TForm1::ListBox1MouseDown(TObject   *Sender,   
              TMouseButton   Button,   TShiftState   Shift,   int   X,   int   Y)   
 {   
//。。。。 
  }

请赐教！！！