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('Ошибка обращения к файлу ');

[Артемий]

Прости за задержку, вот полный Begin..End . Очень прошу помочь!

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

[мисс_граффити]

А что получается, если убрать Refresh?