TPasResEvalLogHandler

type TPasResEvalLogHandler = procedure(

  Sender: TResExprEvaluator;

  const id: TMaxPrecInt;

  MsgType: TMessageType;

  MsgNumber: Integer;

  const Fmt: string;

  Args: array of Const;

  PosEl: TPasElement

) of object;