[DELPHI] obsługa CD-ROM'ów

Witam. :-) Zrobiłem program do wsuwania i wysuwania tacek CD-ROM'u. :-P Zauważyłem, że podczas mojego włączonego programu CD-ROM nie może odczytać płyty. :-[ Jak go wyłączę to CD-ROM nagle z niewiadomych przyczyn "widzi" płytę. [diabel] W programie użyłem procedur:

procedure TCDROM.Wysun1Click(Sender: TObject);
begin
// Open drive F: (F being the letter of the drive you wish to open)
mciSendString('open cdaudio!F: alias driveF', nil, 0, 0);
mciSendString('set driveF door open wait', nil, 0, 0);
end;

procedure TCDROM.Wsun1Click(Sender: TObject);
begin
// Close drive F:
mciSendString('set driveF door closed wait', nil, 0, 0);
end;

Jak można na to zaradzić ????