## Код:
```
TYPE
      tpGrad* = POINTER TO EXTENSIBLE RECORD (mTf.tpFaze)
      END;

PROCEDURE Init(VAR grad_:tpGrad; faze_:BYTE);
BEGIN
  NEW(grad_);
  mTf.Init(grad_.????) (* вот здесь как быть -- не догоняю *)
END Init;
```


Или здесь наследование не прокатывает?