Константы процедурного  типа должны определять идентификатор
        процедуры или функции,  совместимый по присваиванию с типом конс-
        танты.

                                          ┌─────────────────┐
         процедурная константа ──────┬───>│константа-элемент├───────────>
                                     │    └─────────────────┘   ^
                                     │    ┌─────────────────┐   │
                                     ├───>│константа-элемент├───┤
                                     │    └─────────────────┘   │
                                     │          ┌───┐           │
                                     └─────────>│nil├───────────┘
                                                └───┘

             Приведем следующий пример:

             type
                ErrorProc = procedure(ErrorCode: Integer);

             procedure DefaultError(ErrorCode: Integer); far;
             begin
                  WriteLn('Error ', ErrorCode, '.');
             end;

             const
                  ErrorHandler: ErrorProc = DefaultError;