// строим первый уровень дерева
// что касается именно VTV умещается в 2 строки:
//  vtNav.NodeDataSize := SizeOf(TORTreeItem);  и  n := vtNav.AddChild(nil, item);
procedure TfrmOR.BuildTree;
var q: TmvbQuery;
    n: PVirtualNode;
    item: TORTreeItemY;
begin
     vtNav.NodeDataSize := SizeOf(TORTreeItem);
     vtNav.BeginUpdate;
     q := TmvbQuery.Create(qtRO, TORTreeItemY.MainStmt(nil));
     try
       vtNav.Clear;
       q.Exec([]);
       while not q.eof do
       begin
         item := TORTreeItemY.Create(nil);
         item.Init(q);
         n := vtNav.AddChild(nil, item);
         vtNav.HasChildren[n] := true;
         q.Next;
       end;
     finally
       q.Free;
       vtNav.EndUpdate;
     end;
end;

// получение объекта из узла
function TfrmOR.TreeObject(N: PVirtualNode): TORTreeItem;
begin
     Result := TORTreeItem(vtNav.GetNodeData(N)^);
end;

// автоматическое удаление объекта
procedure TfrmOR.vtNavFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
     TreeObject(Node).Free;
end;