Чтобы всё работало надо поправить MediaPlayer(Ctrl+F) - после строки 56 добавить FMedia.Close;
ЗЫ:
Th := NewTimer(300);
Th.OnTimer := _OnEnd;
-улыбнуло))