如何用按钮实现滚动条的连续滚动功能？

嗯，我是想实现这样的功能，放2个按钮，取代滚动条的上下箭头。（美观问题，所以不能放滚动条）鼠标按下按钮，滚动条开始滚动；松开按钮，滚动条停止滚动。我是这样做的，很笨的方法，效果很差，系统响应很慢。请大家帮帮忙，指点指点。procedure TForm1.SpeedButton2MouseDown(...)
var
...
for 0行 to max行 do
 begin
 if 布尔值 then postMessage(控件.handle,wm_vscroll,SB_LINEDOWN, 0);
 //延时
 FirstTickCount := GetTickCount;
 Repeat
 Application.ProcessMessages;
 Until ((GetTickCount - FirstTickCount) >= 60);
 end;
end;procedure TForm1.SpeedButton2MouseUp(...)
var
...
begin
postMessage(控件.handle, wm_vSCROLL, SB_ENDSCROLL, 0);
布尔值:=false;
end;