//on timer: if (BASS_ChannelIsActive(stream) = 0) and (paused = false) then begin listbox.itemindex := listbox.itemindex + 1; procedure_that_play_song_selected_in_list_box end;