Source position: glib.pp line 378
type TGScannerMsgFunc = procedure(
scanner: PGScanner;
message: Pgchar;
error: gint
);