Код
if OpenDialog1.Execute then
with MediaPlayer1 do
begin
Filename := OpenDialog1.filename;
Notify := True;
try
Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка обращения к файлу ');
with MediaPlayer1 do
begin
Filename := OpenDialog1.filename;
Notify := True;
try
Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка обращения к файлу ');