## Код:
```
DIOPCGroupEvent = POINTER TO ABSTRACT RECORD (CtlT.OutObject)
         (this: DIOPCGroupEvent) AsyncCancelComplete (CancelID: INTEGER), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) AsyncReadComplete (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps, Errors: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) AsyncWriteComplete (TransactionID, NumItems: INTEGER; ClientHandles, Errors: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) DataChange (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) GetIID (OUT iid: COM.GUID);
         (this: DIOPCGroupEvent) Invoke (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: WinOleAut.VARIANT)
      END;
```

Как в другом модуле реализовать абстрактние методы этого типа?