[angvelem]

Где-то напутал.

Код:

procedure TForm_player.PlayBarMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // устанавливаем позицию воспроизведения трека
  PlayBar.Position := Round(PlayBar.Max / PlayBar.Width * X);
  BASS_ChannelSetPosition(Channel, BASS_ChannelSeconds2Bytes(Channel, PlayBar.Position), BASS_POS_BYTE);
end;