Source position: heaptrc.pp line 107
type TWalkBlockProc = procedure(
const bi: TWalkBlockInfo;
param: pointer
);