Здравствуйте, Аноним, Вы писали:

А>Как TMEdiaPlayer сделать чтобы он проигрывал одну и туже мелодию бесконечно

У TMediaPlayer существует событие OnNotify. Оно происходит когда заканчивается исполнение любого вызванного медиа-метода (например Play или Eject). Таким образом, достаточно в обработчике вышеуказанного события написать "MediaPlayer.Play". Мелодия должна проигрываться бесконечно.