Abrindo/fechando o drive de cd

// Inclua na seção uses: MMSystem
// Para abrir
mciSendString('Set cdaudio door open wait', nil, 0, handle);

// Para fechar
mciSendString('Set cdaudio door closed wait', nil, 0, handle);