Hola ZaneMS.
El problema es que en ninguna parte del código de tu mensaje se le asigna valor alguno a la propiedad
FileName del
TMediaPlayer.
Hace esta simple prueba, agrega un
TOpenDialog, un
TMediaPlayer, un
TButton y este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Filter:= 'MP3 Audio Files (*.mp3)|*.mp3';
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;
Saludos