crollbar

[MetR]

procedure TForm1.sbLoadChange(Sender: TObject);
var
x,y,n:integer;
pos:Integer;
R:TPoint;
begin
getcursorpos(R);
x:=R.X;
y:=R.y;
if (x>Form1.Left+sbload.Left) and
   (y>form1.Top+sbload.Top) and
   (y<form1.top+sbload.Top+sbload.Height)  then
  begin
  pos:=x-Form1.Left-sbload.Left;
  sbload.Position:=Round(pos/(sbload.Width/sbload.Max));
  BASS_ChannelSetPosition(chanel,sbload.position,BASS_POS_BYTE);
  end;
end;

мне нужно сделать так, чтобы позиция скрлбара изменялась только по щелчку мышью, я вот тут написал кое-что, но при попытке переместить ползунок он возращается в свое прежнее положение, что не так?