Source position: goption.inc line 97
procedure g_option_group_set_translate_func(
group: PGOptionGroup;
func: TGTranslateFunc;
data: gpointer;
destroy_notify: TGDestroyNotify
);