Source position: heaptrc.pp line 123
procedure WalkHeap(
walkBlock: TWalkBlockProc;
param: pointer
);