Source position: contnrs.pp line 528
type TBucketProc = procedure(
AInfo: Pointer;
AItem: Pointer;
AData: Pointer;
out AContinue: Boolean
);