自己实现拖动条两端的那个小方向按钮功能。鼠标按下事件。求大哥大姐帮忙！解决办法

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

请赐教！！！

------解决方案--------------------
你可以在mouseup事件里发出一个停止++的消息sendMessage(,,1,0)。
在mousedown里做一个while(Msg.lprama != 1&& VertScrollBar-> Position == MAX)
我只是说一种方法，具体程序可不是这样写的哦。
------解决方案--------------------
用个定时器给他发滚动消息
然后在按钮的mousedown，mouseup事件中控制timer的状态。