Saber si hay un cd en la unidad de CD-ROM

[elpinjum]

¿Como puedo saber desde delphi si hay un cd insertado en una unidad de CD-ROM?

Ahora mismo estoy usando la funcion FileExists y directoryExists, para comprobar si hay un fichero en el CD insertado, pero resulta que cuando no hay un cd instalado me da un mensaje de error que no puede ser capturado con el Try..Except, y en el cual me da las opciones de cancelar, reintentar y continuar.

¿Como puedo hacerlo para que no me salga este error cuando no hay cd en la unidad de CD-ROM del ordenador?