너무 잘 알려진 Tip 이기는 해도 혹시나 모르시는 분들을 위해서 올려 봅니다.
uses절에 MMSystem 을 포함하고 아래와 같이 하십시요.

[ open ]
  mciSendString('Set cdaudio door open', nil, 0, hinstance);

[ close ]
  mciSendString('Set cdaudio door closed wait', nil, 0, handle);