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