* узлы
types:
begin of TNode,
nodename type RSNODENAME,
dateto type RSDATETO,
datefrom type RSDATEFROM,
ref_tree_node type ref to TTreeNode,
end of TNode,

TNodes type sorted table of TNode
with unique key nodename dateto.

* дерево
types:
begin of TTreeNode,
nodeid type RSHIENODID,
parentid type RSHIENODID,
childid type RSHIENODID,
nextid type RSHIENODID,
tlevel type RSTLEVEL,
ref_node type ref to TNode,
end of TTreeNode,

TTree type hashed table of TTreeNode
with unique key nodeid.

Рекурсивные ссылки можно написать как ...ref to data

Тогда, очевидно, теряется возможность проверки на совместимость типов.

А операторы ASSIGN ... CASTING и ?= разве не решают задачи проверки на совместимость?