怎样做一个像WINAMP中声音调节一样的滚动条？？(20分)

我用了两个IMAGE分别做了滚动条的滑块和背景，并用ONMOUSEDOWN、ONMOUSEUP、
ONMOUSEMOVE做了相关操作，问题是，当在ONMOUSEMOVE中加入了限制滑块不超过限定
范围的操作时，明显出现缓慢，各位说说要怎样做。（不用控件！！）

大家都不会吗？

UP一UP

最近想做一个播放器，用两个IMAGE做了度条，其中IMAGE1是滑块，IMAGE2是背景。代码如下：
:
:
var TFrmMain:TForm1;
IsPointDown:Boolean;
:
:
procedure TFrmMain.image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
isPointDown:=True;
end;

procedure TFrmMain.image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsPointDown then
begin
if (image1.left+x>=image2.left) and (image1.left<=(image2.left+image2.width)) then
image.Left:=point.Left+x;

end;
end;


procedure TFrmMain.Image1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin

IsPointDown:=False;
end;

这段代码错是没错，只是不知为何很慢，拖动时很不爽，大家有没有更好的实现方法？？？？

看看XAudioPlayer控件的例子，非常棒

那儿有得下？？？