Жаль так нельзя:

## Код:
```
MODULE TmpX;

   IMPORT Dialog;

   TYPE
      Form = RECORD
         x*: INTEGER
      END;

   VAR
      forms*: ARRAY 4 OF Form;

   PROCEDURE (VAR f: Form) Button1Click*, NEW;
   BEGIN
      INC(f.x);
      Dialog.UpdateInt(f.x)
   END Button1Click;

END TmpX.
```


И привязать кнопку к TmpX.forms[0].Button1Click