1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TMainFrm.Open1Click(Sender: TObject);
var mp3file:string;
begin
  opendialog1.Execute();
  lbplaylist.Items.Add(opendialog1.FileName);
  mp3File := opendialog1.FileName;
  mediaplayer1.Close;
  mediaplayer1.FileName:=mp3File;
  mediaplayer1.open;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.Execute;
  mediaplayer1.FileName:=opendialog1.FileName;
  mediaplayer1.Open;
  mediaplayer1.Play;
end;					

1:
2:
3:

mediaplayer1.FileName := 'c:\mein_mp3.mp3';
mediaplayer1.Open;
mediaplayer1.play;