Source position: goption.inc line 61
type TGOptionErrorFunc = procedure(
context: PGOptionContext;
group: PGOptionGroup;
data: gpointer;
error: PPGError
);