Source position: pscanner.pp line 822
protected procedure TPascalScanner.SetCurMsg(
MsgType: TMessageType;
MsgNumber: Integer;
const Fmt: string;
Args: array of Const
);