Как сделать кнопку недоступной для нажатия программно? Почему-то не срабатывает охранник.
## Код:
```
MODULE Gu;(*эксперимент с охранником*)
IMPORT Dialog;

PROCEDURE A*;(**)
END A;

PROCEDURE AGuard* (VAR par: Dialog.Par);
BEGIN
par.disabled := TRUE
END AGuard;

END Gu.
```
