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