Мда..ну у тебя и стиль программирования...Тебе будет нелегко разобраться в своей же программе на 1000+ строк...
Ну так вот,должно работать,не проверял:
Код:
SelIndx: Integer;
FileName: String;
Count: Integer;
-глобальные переменные,где файлнейм-имя играющего файла.
При нажатии на кнопку плей:
Код:
var
I: Integer;
begin
...//твой код
FileName:= MediaPlayer.FileName;
Count:= FileListBox1.Items.Count;
for I:=0 to Count-1 do
if FileListBox1.Items.Strings[i] = FileName then SelIndx:= I;
Далее ловишь конец проигрывания файла(например по CurrentTime=TrackTime),а когда поймал,делаешь так:
Код:
if ((SelIndx+1) < Count) then
FileListbox1.Selected[SelIndx+1]:= True;
MediaPlayer.FileName:= FileListBox1.Items.Strings[SelIndx+1];
И проигрываешь файл,всё просто!
P.S. Это называется не кодинг а листинг