Source position: gscanner.inc line 31
type TGScannerMsgFunc = procedure(
scanner: PGScanner;
message: Pgchar;
error: gboolean
);