Code:
Uses, MMSystem

Procedure OpenDoor; 
Begin 
mciSendString('Set cdaudio door open', nil, 0, 0); 
End;
 
Procedure CloseDoor; 
Begin 
mciSendString('Set cdaudio door closed', nil, 0, 0); 
End;