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