Delphi - Abrir/Cerrar los drives de CD

Quisiera saber si alguien tiene codigo en Delphi para poder hacer un programa que se encuentre en el system tray que permita abrir y cerrar los drives de CD.
Encontre alguno para Visual Basic, pero no es mi especialidad por decirlo de alguna manera.
Gracias.

Aquí tienes un truco para abri/cerrar la bandeja del CD. No sé si esto era lo que querías.

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;