Source position: fpgtk.pp line 475
type TFPgtkForEachProcedure = procedure(
item: pointer;
data: pointer
) of object;