[NSP]

Мда..ну у тебя и стиль программирования...Тебе будет нелегко разобраться в своей же программе на 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. Это называется не кодинг а листинг