Насколько я понимаю, так:
## Код:
```
...
My_DIOPCGroupEvent = POINTER TO RECORD (DIOPCGroupEvent) END;
...
PROCEDURE (this: My_DIOPCGroupEvent) AsyncCancelComplete (CancelID: INTEGER);
BEGIN
END AsyncCancelComplete;
...
```
