Inclua na seo uses: MMSystem

{ Para abrir }
mciSendString('Set cdaudio door open wait', nil, 0, handle);
 
{ Para fechar }
mciSendString('Set cdaudio door closed wait', nil, 0, handle);