Source position: gdataset.inc line 11
type TGDataForeachFunc = procedure(
key_id: TGQuark;
data: gpointer;
user_data: gpointer
);