Używam biblioteki BASS i program nie odtwarza plików mp3 ze zmiennym bitrate, po prostu je pomija.
Może ktoś wie w czym problem?

procedure TMainFrm.btnPlayClick(Sender: TObject);
begin
  if BASS_ChannelisActive(Channel) = BASS_ACTIVE_PLAYING then
  BASS_ChannelStop(Channel); //jeżeli gra to stop
  Channel := BASS_StreamCreateFile(FALSE, PChar(ListBox1.Items.Strings[0]), 0, 0, 0); //nowy strumień
  BASS_StreamPlay(Channel, False, 0); //play
  Label2.Caption:=(ExtractFileName(ListBox1.Items.Strings[0]));
  ListBox1.Items.Delete(0);
end;

Next:

procedure TMainFrm.Timer1Timer(Sender: TObject);
begin
  //jeżeli kanał jest aktywny to
  if BASS_ChannelIsActive(Channel) = BASS_ACTIVE_PLAYING then
  begin
    //pokaz czas
    lblTime.Caption := Seconds2MinsAndSecs(Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetPosition(Channel)))) + '/' + Seconds2MinsAndSecs(Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_StreamGetLength(Channel))));
     //jeżeli 2s do konca to nastepna
    if Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetPosition(Channel))) = trunc(BASS_ChannelBytes2Seconds(Channel, BASS_StreamGetLength(Channel))) -2 then
      btnNext.Click;
  end;
  end;

procedure TMainFrm.btnNextClick(Sender: TObject);
begin
  if ListBox1.Items.Count>0 then
      btnPlay.Click;
end;