Source position: contnrs.pp line 36
type TObjectListCallback = procedure(
data: TObject;
arg: pointer
) of object;