[alyamus]

friends !!!

What's wrong with this code ?

Код:

procedure TForm_player.trackbarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pos:integer;
begin
  pos:=round((100 / trackbar.Width)*x);//***позиция клика

  trackbar.position:=(BASS_ChannelGetLength(channel, 0) div 100) * pos ;
if mode=play then exit ;

player;
 end;

mediaplayer forward go problem