Как выдвинуть дверцу CD-ROM?

Code:

public

{ Public declarations }

IsOpen: boolean;

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

IsOpen := false;

end;

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if IsOpen = false then

begin

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

   IsOpen:=true;

end

else

begin

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

   IsOpen:=false;

end;

end;