Если обработчик должен что-то сделать по VAR параметру, то вполне жизненная вот такая история, когда на входе может быть NIL.

## Код:
```
PROCEDURE Create (VAR e: Base)
BEGIN

IF e IS Ext THEN
  NEW(e);
  e.field := 1;
ELSE
  NEW(e)
END;

END Create;
```
