Fórum Como saber o final da música #285848

procedure TSeuForm.MediaPlayer1Notify(Sender: TObject);
var
  Player: TMediaPlayer;
begin
  Player := Sender as TMediaPlayer;

  if Player.Mode = mpStopped then
    // a música parou
  end;

  // precisa "rearmar" o player
  Player.Notify := True;
  // se não fizer isso, ele avisa só uma vez
end;