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