Запомнить меня на этом копьютере
Процедурная константа должна содержать идентификатор процедуры или функции, который совместим с типом константы.
Type ErrorProc = Procedure(ErrorCode : Integer); Procedure DefaultError(ErrorCode : Integer); Far; Begin WriteLn('Ошибка ', ErrorCode, '.'); End; Const ErrorHandler : ErrorProc = DefaultError;