У меня нет опыта работы с проигрыванием, но исходя из здравого смысла если у вас проигрывается первый файл и не проигрывается дальше значит что-то происходит с загрузкой кодека -  или возникает ошибка и его (кодек выбивает) или он не закрывается корректно, или что-то в этом роде. Может стоит попробовать вынести медиаплеер в DLL чтобы его можно было вообще выгрузить, и повторное проигрывание было подобно повторному запуску программы. Теперь небольшой вопрос - а метод Stop - он синхронный? если он асинхронный, то возможен вариант что компонент разрушается до того как законцится проигрывание. Попробуйте только 1 раз создавать и разрушать плеер, и только подгружать новые файлы...

Цитата(Baa @ 10.6.2002, 20:49)

Вообще лучше проигрывать все через MCI ( Multimedia API ). Да и с ошибками проще расправлятся + больше контроля над процессом

Ну предлагай пример с MCI для обсуждения.... :-))

Цитата(Vit @ 10.6.2002, 22:38)

возможен вариант что компонент разрушается до того как законцится проигрывание.

Я пробовал пробить этот вариант
Stop;
While Mode<>Stopped Do Application.ProcessMessages;
у меня  не вышло.

Всем добрый день! Сначала хочу поблагодарить всех за помощь. Наконец то я нашел свою ошибку. Так как моя программа и MIDI файлы находятся в одном каталоге, я решил проигнорировать полные пути:

mp.FileName := Label5.Caption;
(mp.FileName := 'Filename.mid';)

В этом и была моя ошибка. С TmediaPlayer'ом такая "фишка" не проходит. Нужно использовать полные пути. Поэтому я сделал так:

            mp.FileName := ExtractFilePath(Application.EXEName)+Label5.Caption;
            (mp.FileName := 'C:\Path\Filename.mid';)

Теперь все работает. Надеюсь, моя халатность станет другим наукой. Кстати, с DLL файлами такая "фишка" проходит!