[ALexandr555]

Код:

  if BASS.Position < BASS.Length
    then exit;


  if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан
  then begin
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
        Play;  // активизировать воспроизведение файла
       end

както так и прявязать это к таймеру только точно никто не подскажет?