procedure TForm_Player.Player;
begin
//проверяем, если не пауза
if mode<>paused then
begin
//то проверяем существует ли файл загружаемый из PlayList
//если файл не существует или не того типа, то ищем следующий
while not FileExists(FileName) or ((lowercase(ExtractFileExt(filename))<>'.mp3')  and
        (lowercase(ExtractFileExt(filename))<>'.wma')  and
        (lowercase(ExtractFileExt(filename))<>'.wav')  and
        (lowercase(ExtractFileExt(filename))<>'.flac') and
        (lowercase(ExtractFileExt(filename))<>'.ogg')) do
     begin
       if i<ListBox1.Items.Count-1 then
                         begin
                            inc(i);
                            Filename:=ListBox1.Items.Strings[i];
                            ListBox1.ItemIndex:=i;
                         end
                       //если лист закончился - выходим
                    else begin ShowMessage('Файлов для воспроизведения не найдено');exit;end;
      end;

//останавливаем и освобождаем канал воспроизведения
BASS_ChannelStop(Channel);BASS_StreamFree(Channel);

//пытаемся загрузить файл и получить дескриптор канала
Channel := BASS_StreamCreateFile(FALSE, PChar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
//если дескриптор канала=0 (файл по какой то причине не может быть загружен),
//выдаем сообщение об ошибке и выходим
if Channel=0 then begin ShowMessage('Ошибка загрузки Файла');exit;end;

//настройка эквалайзера
     fx[1] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//первый канал эквалайзера
     fx[2] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//второй канал
     fx[3] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[4] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[5] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[6] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[7] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[8] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[9] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
     fx[10] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);

     //настройка первого канала эквалайзера
     p.fGain :=15-trackbar3.Position; //усиление
     p.fBandwidth := 3; //ширина полосы пропускания
     p.fCenter := 80; //частота регулирования
     BASS_FXSetParameters(fx[1], @p);//применение заданных настроек
     //настройка второго канала эквалайзера

     p.fGain := 15-trackbar4.Position;
     p.fBandwidth := 3;
     p.fCenter := 170;
     BASS_FXSetParameters(fx[2], @p);
     //и т.д.
     p.fGain := 15-trackbar5.Position;
     p.fBandwidth := 3;
     p.fCenter := 310;
     BASS_FXSetParameters(fx[3], @p);

     p.fGain := 15-trackbar6.Position;
     p.fBandwidth := 3;
     p.fCenter := 600;
     BASS_FXSetParameters(fx[4], @p);

     p.fGain := 15-trackbar7.Position;
     p.fBandwidth := 3;
     p.fCenter := 1000;
     BASS_FXSetParameters(fx[5], @p);

     p.fGain := 15-trackbar8.Position;
     p.fBandwidth := 3;
     p.fCenter := 3000;
     BASS_FXSetParameters(fx[6], @p);

     p.fGain := 15-trackbar9.Position;
     p.fBandwidth := 3;
     p.fCenter := 6000;
     BASS_FXSetParameters(fx[7], @p);

     p.fGain := 15-trackbar10.Position;
     p.fBandwidth :=3;
     p.fCenter := 10000;
     BASS_FXSetParameters(fx[8], @p);

     p.fGain := 15-trackbar11.Position;
     p.fBandwidth := 3;
     p.fCenter := 12000;
     BASS_FXSetParameters(fx[9], @p);

     p.fGain := 15-trackbar12.Position;
     p.fBandwidth := 3;
     p.fCenter := 14000;
     BASS_FXSetParameters(fx[10], @p);

// конец условия проверки паузы
end;

//командой BASS_ChannelPlay(Channel, False) пытаемся воспроизвести файл,
//если это невозможно, то выдаем сообщение об ошибке
if not BASS_ChannelPlay(Channel, False) then
          begin ShowMessage('Ошибка воспроизведения файла');exit;end;

//полоса проигрывания
     scrollbar1.Min:=0; //минимальное значение
     scrollbar1.Max:=bass_ChannelGEtLength(Channel, 0)-1;//максимальное значение

//присваеваем заголовку формы имя проигрываемого файла
Form_Player.Caption:=ExtractFileName(FileName);
  //Устанавливаем PlayMode - play
  mode:=play;
end;

Код пропускает не существующие файлы и те, которые не соответствуют заданному типу.
Более сложный вариант заключается в обработке ошибки т.е. в место сообщения об ошибке и выходе из процедуры мы переходим в плейлисте на следующий файл и снова пытаемся его загрузить и воспроизвести, но здесь придется практический полностью перекроить  процедуру [b]procedure TForm_Player.Player;[/b][/i]

// Инициализация аудио - по умолчанию, 44100hz, stereo, 16 bits
           if not BASS_Init(-1, 44100, 0, Handle, nil) then
           begin
             MessageBox(0,'Ошибка инициализация аудио',nil,MB_ICONERROR);
             Halt;
           end;

plug := BASS_PluginLoad('BassWMA.dll', 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
             if Plug = 0 then
             begin
                showmessage('Плагин BassWMA не загружен');
             end;

plug := BASS_PluginLoad('BassFlac.dll', 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
             if Plug = 0 then
             begin
                showmessage('Плагин BassFLAC не загружен');
             end;

BASS_PluginLoad('BassWMA.dll', 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});//для BassWMA
BASS_PluginLoad('BassFlac.dll', 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});//для BassFlac

BASS_PluginLoad('BassWMA.dll', 0); //для BassWMA
BASS_PluginLoad('BassFlac.dll', 0); //для BassFlac

//если дескриптор канала=0 (файл по какой то причине не может быть загружен),        
        //выдаем сообщение об ошибке и выходим        
if Channel=0 then begin ShowMessage('Ошибка загрузки Файла');exit;end;

if Channel=0 then
          begin
             Channel := BASS_WMA_StreamCreateFile(FALSE, PChar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
               if Channel=0 then
                        begin
                           ShowMessage('Ошибка загрузки Файла');
                           exit;
                        end;
          end;

if Channel=0 then
          begin
             Channel := BASS_WMA_StreamCreateFile(FALSE, PChar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
               if Channel=0 then
                        begin
                           Channel := BASS_FLAC_StreamCreateFile(FALSE, PChar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
                    if Channel=0 then
                          begin
                          ShowMessage('Ошибка загрузки Файла');
                          exit;
                          end;
                        end;
          end;

function Tform_player.lentime(filename1:string):string;
var
             TrackLen: Double;
             ValLen: Double;
            Channel1    : DWORD;
begin
            //освобаждаем канал
            BASS_StreamFree(Channel1);
            //пытаемся загрузить файл и получить дескриптор канала
            Channel1 := BASS_StreamCreateFile(FALSE, PChar(FileName1), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
            if Channel1=0 then
              begin
                  Channel1 := BASS_WMA_StreamCreateFile(FALSE, PChar(FileName1), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
              end;
            //получаем время воспроизведения
            TrackLen:=BASS_ChannelBytes2Seconds(Channel1,BASS_ChannelGetLength(Channel1,BASS_POS_BYTE));
            ValLen:=TrackLen / (24 * 3600);
             Lentime:=FormatDateTime('hh:mm:ss',ValLen);
            //освобаждаем канал
            BASS_StreamFree(Channel1);
end;