Source position: pscanner.pp line 116
type TMessageType = (
mtFatal,
mtError,
mtWarning,
mtNote,
mtHint,
mtInfo,
mtDebug
);