procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
try
MediaPlayer1.Open;
MediaPlayer1.Play;
except on ??? do begin
ShowMessage('Error! Can''t play file.');
exit;
end;
end;
end;
или это вообще не так делается ?

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
try
MediaPlayer1.Open;
MediaPlayer1.Play;
except on ??? do begin
ShowMessage('Error! Can''t play file.');
exit;
end;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
{ начало блока проверки }
try { проверять на ошибки в этом блоке }
MediaPlayer1.Open;
MediaPlayer1.Play;
except { если в проверяемом блоке есть ошибки - сделать следующее }
ShowMessage('Error! Can''t play file.');
exit;
end;
{ конец блока проверки }
end;