Source position: glib.pp line 271
type TGHookFreeFunc = procedure(
hook_list: PGHookList;
hook: PGHook
);