Константы процедурного типа

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

Пример
Type ErrorProc = Procedure(ErrorCode : Integer);
 
Procedure DefaultError(ErrorCode : Integer); Far;
  Begin
   WriteLn('Ошибка ', ErrorCode, '.');
  End;
 
Const ErrorHandler : ErrorProc = DefaultError;