Предотвращение ошибки

[Vladya]

Подскажите пожалуйста как предотвратить ошибку которая вылетает (иногда) при открытии какой нить песни, саму ошибку устранить не возможно, так как на сколько я знаю эта ошибка появляется когда не найден нужный аудио кодек. Вот на фотке эта ошибка что бы ясно было что за ошибка:


Так вот в чем собственно вопрос, как ее описать? Я в процедуре воспроизведения пробовал писать иф ерор зен, но такое не прокатило ее нужно описать а как не знаю. Подскажите пожалуйста.

[KORN]

через try except делаешь переход на открытие следующего файла

[Vladya]

Я извиняюсь конечно, но как? Я просто сам учу Delphi и поэтому много чего не знаю, не могли б вы подсказать как это сделать? Следующий файл у меня открывается в процедуре NextTrack

[spamer]

Вот тут хорошо про try except написано, почитай

http://www.rsdn.ru/article/Delphi/Delphi_7_04.xml

[MalCer]

Эта ошибка возникает, так как ты не проинициализировал компонент(оборудование) через который будет воспроизводиться звук
Вот пример обработки:

try
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
except
Application.MessageBox('Ошибка открытия файла', 'Ошибка!!!');
exit;
end;

[Vladya]

Спасибо! но у меня к вам еще один вопросик, куда мне это все написать вот в этой процедуре?

procedure TForm1.BeginPlay;
Begin
Form6.RzBmpButton1.Enabled:=True;
Form6.RzBmpButton3.Enabled:=True;
Form6.RzBmpButton4.Enabled:=True;
Image3.Enabled:=true;
Image5.Enabled:=true;
Image6.Enabled:=true;
RzMarqueeStatus1.Caption:='..:: '+extractfilename(mediaplayer1.FileName)+' ::..';
form6.RzMarqueeStatus1.Caption:='..:: '+extractfilename(mediaplayer1.FileName)+' ::..';
 if N31.Checked then AddMessage;
  with readID3Tag(mediaplayer1.FileName) do
    begin

    end;
  ratio:=mediaplayer1.Length/progressbar1.Max;
  label6.Caption:=MusicToStr(mediaplayer1.Length);
  mediaplayer1.Play;

end;