TdxOcEvent = procedure(Sender: TObject; Node: TdxOcNode) of object;