No Mci Device Open, Недочёт Опции

[Артемий]

Корче, у медиаплеера есть такая штука EMCIDeviceError. При ошибке файла она выдает сообщение "No MCI device open". Она должна выдать одно сообщение, НО.. у меня выдает их дофига, может хоть 1000 , если я не остановлю этот фигов процесс. Дам код:

Код

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

[Артемий]

Всё это происходит в OnClick кнопки "Открыть медиафайл"!
Не нашел я этот "Stop on Delphi"! У меня Delphi 7 и TurboDelphi.NET , но сейчас я на семерке.
Если не возражаешь я скину проект чуть позже.
Пробовал твой совет

1. попробуй убрать строку

on EMCIDeviceError do