Close CD-ROM pake script pascal di Delphi

sama aja kayak step-step yang udah saya jelaskan di Open CD-ROM,,bedanya sekarang bisa dilihat,klo yg buka set door opened,tapi skarang set door closed..
gampang kan..:)

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