Проблемма с TVirtualStringTree

[Makin_tosh]

Здравствуйте! Подскажите, пожалуйста, как решить такой вопрос: Мне надо скрыть ноды, не имеющие дочерних нодов.
Я делаю так:

Код:

PVirtualNode FirstNode;
FirstNode = LVST->GetFirst(true);
LVST->Selected[FirstNode] = true;
LVST->FocusedNode = FirstNode;
while (FirstNode) {
Application->ProcessMessages();
if (FirstNode->ChildCount == 0) {
LVST->IsVisible[FirstNode] = false;
//FirstNode->States = FirstNode->States }
else {};
FirstNode = LVST->GetNext(FirstNode, true);
}

Но, в таком случае не могу раскрыть те узлы, которые имеют дочерние ноды.