Source position: msebintree.pas line 80
public procedure tintegeravltree.traverse(
const aproc: integernodeprocty
);