[Casimiro Noteví]

Código Delphi [-]
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
    Label_Mensaje.Caption := 'Abriendo...';
    OpenCd(TRUE);
    Label_Mensaje.Caption := 'Abierto.';
end;

procedure TForm1.Button_CerrarClick(Sender: TObject);
begin
    Label_Mensaje.Caption := 'Cerrando...';
    OpenCd(FALSE);
    Label_Mensaje.Caption := 'Cerrado.';
end;