Source position: glib.pp line 480
type TGDataForeachFunc = procedure(
key_id: TGQuark;
data: gpointer;
user_data: gpointer
);