Количество воспроизведений!

for i:=0 to PlayCount-1 do
  PlayOnce;

Stream:= BASS_StreamCreateFile(False, PChar('лалала.mp3'), 0, 0, 0);
if (Stream <> 0) then //если стреам=0 тогда плей следующего файла
BASS_channelPlay(stream,false);
Stream:= BASS_StreamCreateFile(False, PChar('след_песня.mp3'), 0, 0, 0);
if (Stream <> 0) then //если стреам=0 тогда плей следующего файла
BASS_channelPlay(stream,false);

stream:= Bass_streamcreatefile(false, PChar('Radio_Killer-Lonely_Heart_Original_Radio.mp3'),0,0,0);
if Bass_channelplay(stream,false)then
Bass_channelstop(stream);
 
stream:= Bass_streamcreatefile(false, PChar('pink_feat_nate_ruess_just_give_me_a_reason.mp3'),0,0,0);
if Bass_channelplay(stream,false) then
Bass_channelstop(stream);

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Bass_channelstop(stream);
stream:= Bass_streamcreatefile(false, PChar('sound\Radio_Killer-Lonely_Heart_Original_Radio.mp3'),0,0,0);
Bass_channelplay(stream,false)
end;

    BASS_ChannelSetSync(chan,BASS_SYNC_END or BASS_SYNC_MIXTIME,0,LoopSyncProc, nil); // set sync to loop at end
    BASS_ChannelPlay(chan,FALSE); // start playing

TForm1=class(TForm)
...
  eRepeatCount:TEdit;
  procedure eRepeatCountChange(Sender:TObject);
private
  FCurTrack:integer;
  FCurrentRepeat:integer;
  FRepeatCount:integer;
  procedure SetRepeatCount(Value:integer);
  function GetRepeatCount:integer;
public
  procedure Play(N:integer);
  procedure Stop;
  procedure PlayNext;
  procedure PlayCurrent;
  property RepatCount:integer read GetRepeatCount write SetRepeatCount;
end;
 
procedure TForm1.SetRepeatCount(Value:integer);
begin
  FRepeatCount:=Value;
  if FRepeatCount<=0 then
    FRepeatCount:=1;
  if eRepeatCount.Text<>IntToStr(FRepeatCount) then
    eRepeatCount.Text:=IntToStr(FRepeatCount);
end;
 
function TForm1.GetRepeatCount:integer;
begin
  if FRepeatCount<=0 then
    exit(1)
  else
    exit(FRepeatCount);
end;
 
procedure TForm1.eRepeatCountChange(Sender:TObject);
begin
  if (StrToIntDef(eRepeatCount,1)<>RepeatCount) then
    RepeatCount:=StrToIntDef(eRepeatCount,1);
end;
 
procedure TForm1.PlayCurrent;
begin
   inc(Form1.FCurrentRepeat);
   Play(FCurTrack);
end;
 
procedure TForm1.PlayNext;
begin
   FCurrentRepeat:=0;
   inc(FCurTrack);
   Play(FCurTrack);
end;
 
procedure LoopSyncProc(handle: HSYNC; channel, data: DWORD; user: Pointer); stdcall;
begin
  if Form1.Playing then
    Form1.Stop;
  if Form1.FCurrentRepeat<FRepeatCount then
    Form1.PlayCurrent
  else
    Form1.PlayNext;
end;