CDROM - Ejecting

Niakoi moje li da mi kaje kak da nakaram cd-to da napravi eject.
Sigurno e ne6to tupo.....

uses MMsystem;

...

// this wiil open CD
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

// this will close CD
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

Дали завиването на крушка е софтуерен проблем?

Mnogo blagodaria......