Ayuda con error en código

[ecfisa]

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