"Delphi"-Exceptions verhindern

[Wormid]

Delphi-Quellcode:

procedure TForm1.HandleMCIDeviceError;
begin
  ShowMessage('Mist!');
  Form1.MediaPlayer1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    MediaPlayer1.Open;
  except
    on E: EMCIDeviceError do HandleMCIDeviceError;
  end;
end;