Source position: contnrs.pp line 529
type TBucketProcObject = procedure(
AItem: Pointer;
AData: Pointer;
out AContinue: Boolean
) of object;