Bueno, primero que todo lee la guia de estilo, el hecho de que escribas en mayusculas significa que nos estas gritando y ademas es muy molesto de leer, por otro lado una posible solución a tu problema:
Colocale al media player la propiedad Notify en True, asi por ejemplo:
Código Delphi
[-]
MediaPlayer1.Notify := True;
Y en el evento OnNotify del TMediaPlayer le colocas lo siguiente:
Código Delphi
[-]
procedure TForm1.MediaPlayer2Notify(Sender: TObject);
begin
TMediaPlayer(Sender).Play;
end;
Espero te sirva y que leas la guia de estilo
http://www.clubdelphi.com/foros/guiaestilo.php 
Nota: De todas formas eso no es muy eficiente y en la misma ayuda recomiendan no activar ese evento, pero no encuentro otra forma de hacerlo.