[jhonny]

De trucomania...

Añade 'MMSystem' en el uses de tu form

procedure OpenCd(AOpen:Boolean);
const 
    DoPlay : array[Boolean] of string = 
                ('Set cdaudio door closed wait',
         'Set cdaudio door open wait');
var 
   MyError       : LongInt;
   MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin 
   MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
   if MyError <> 0 then 
   begin 
     MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
     Showmessage(MyErrorString);
     Exit;
   end; 
end;

Para abrir el CD:

OpenCd(TRUE);

Para cerrar el CD:

OpenCd(FALSE);

Si queres mas información busca en el truco 108...

espero te sirva.