Open CD-ROM pake script pascal di Delphi

jika kamu ingin membuka otomatis CD/DVD-ROM kamu menggunakan program(just click)kan enak?? ga perlu nunduk,berdiri,atau gimana pun hanya untuk membuka CD/DVD-ROM kamu,,
caranya:
1.install dulu Delphi versi berapa aj bisa..
2.buat program pake Delphi, buat satu tombol(command button)..klo dibawah ini nama tombolnya Button1Click..point'nya ada di string yg warna hijau..
3.simpan project-compile-build(*.exe)..udah,jadi deh..

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