TCustomTreeView->FullExpand()
で全部開くのは嫌なわけ?