Надо вам почитать документацию баса, там наверняка есть событие, которое происходит после заканчивающийся песни.
Или же можно использовать рекурсию (но НЕ советую), тобишь сделать процедуру, вот пример:
Код:
procedure SetNext;
begin
if BASS.Position < BASS.Length
then exit;
if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан
then begin
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
Play; // активизировать воспроизведение файла
end;
SetNext;
end;
ЗЫ код полностью ваш, поэтому если он не работает, я вам подсказать не чем не могу...
ЗЫЫ на первый взгляд код нормальный, выложите процедуру "Play", может что-то в ней...