Source position: gtkaccelmap.inc line 20
type TGtkAccelMapForeach = procedure(
data: gpointer;
accel_path: Pgchar;
accel_key: guint;
accel_mods: TGdkModifierType;
changed: gboolean
);