Wyłączenie wyświetlania błędu "No Mci Device Open"

Witam chcialbym was zapytac jak mozna wylaczyc wyswietlanie sie bledu no mci device open gdy sie klika na play , gdy nie ma zaladowanego pliku muzyki.
bo nie mam pojecia.

gdy sie klika na play

Jakie 'play'?!

Nie wiem dokładnie po co chcesz się pozbywać tego komunikatu zamiast mu zapobiegać ale niech będzie coś takiego:

procedure TForm1.AppExcept(Sender: TObject; E: Exception);
begin
  if not(E is EMCIDeviceError) then //wyswietlamy komunikaty wszyskich bledow oprocz EMCIDeviceError
    Application.MessageBox(PAnsiChar(E.Message),
    PAnsiChar(Application.Title), MB_ICONERROR);
  if (E is EAccessViolation)then //gdy EAccessViolation zakoncz program
    Halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:= AppExcept;
end;

Wyświetlaniu komunikatu " No Mci Device Open" można zapobiec ustawiając parametr funkcji OnClick - DoDefault := False w przypadku jeśli wystąpi w niej wyjątek.
Pozdrawiam