Duda con Try... Except

[danielmj]

Hola a todos de nuevo, saludos...

Estoy teniendo un pequeño problema con la función Try... Except, os pongo el código:

Código Delphi [-]
try
    principal.memo1.Lines.Add(CalcHash(principal.labedit1.Text,haSHA1));
    principal.Memo1.Lines.SaveToFile(principal.labEdit2.Text+ '\'+' Archivo Hash.crc');
  except
    on EFCreateError do
      begin
        showMessage ('Unidad seleccionada no valida. Selecciona una unidad' +
        chr(13)+'de disco duro local que sea accesible.');
        exit;
      end;
  end;

El problema aparece cuando por ejemplo selecciono una unidad de DVD que no tiene disco. Y lo que pasa es que antes de capturar el error y mostrar mi mensaje, me tira un mensaje de propio de delphi. Y mi duda es ¿cómo puedo hacer que solo salga mi mensaje de error sin mostrar ni antes ni después el mensaje de error de delphi?

Espero haberme explicado bien. Gracias y un saludo.