Source position: gettext.pp line 85
type TTranslationErrorHandler = procedure(
const aFileName: string;
const aUnitName: string;
aError: Exception;
out ReRaise: Boolean
);