[RaZEr]

Открыть:

mciSendString('Set cdaudio door open wait',nil,0,handle);

Закрыть:

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

PS: В uses добавишь MMSystem.