MediaPlayer用得不多， 只知道这种办法， . 假如你已有一个ListBox1并已经装载好全部MP3的完整路径信息了， 可以加一个TIMER1， 在 TIMER1的事件里写代码跟踪播放器的模式， 一停止即播放下一首歌.procedure TForm1.Timer1Timer(Sender: TObject)；

begin

  if MediaPlayer1.Mode=mpStopped then

  begin

    ListBox1.itemindex:=ListBox1.itemindex+1；

    MediaPlayer1.FileName:=ListBox1.Items[ListBox1.itemindex]；

    MediaPlayer1.Close；

    MediaPlayer1.Open；

    MediaPlayer1.Play；。