Source position: gdktypes.inc line 82
type TGdkInputFunction = procedure(
data: gpointer;
source: gint;
condition: TGdkInputCondition
);