Alguém já usou esta dica?

Alguém já tentou usar isto:

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);

Eu fiz um form com dois botões, abrir e fechar. Quando eu clico no abrir, a gaveta do drive de cd-rom abre, mas quando clico no fechar nada acontece.
Se eu iniciar o programa com a gaveta aberta, ela fecha.
Onde está o erro?