procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  if OpenDialog1.Execute then
    for i := 0 to OpenDialog1.Files.Count-1 do
      with mp3List do
        mp3List.Items.Add(OpenDialog1.Files.Strings[i]);
end;    然後使用TMediaPlayer    procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if mp3List.Items.Count > 0 then
    begin
      if mp3List.ItemIndex = -1 then
         mp3List.ItemIndex := 0;
         mp3File := mp3List.Items.Strings[mp3List.ItemIndex];
         mp3.FileName := mp3File;
         mp3.Open;
         mp3.Play;
    end;
  except;
  end;
end;    最後設一各Timer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if mp3.Position >= 您想撥放的長度 then
      mp3.NextTrack;
end;