Quizá pueda interesarte mi componente
TCDChange que detecta cuando se inserta o extrae un cd lanzando un evento
Código Delphi
[-]
TCdChangeEvent = procedure(Sender: TObject; Drive: Char) of object;
que indica la letra de la unidad que se insertó o extrajo.
// Saludos