procedure SelectOnlyThis(Node: TTreeNode)
Снимает множественное выделение и выделяет указанный узел Node.