function TfmTechnicProcess.FindNodeByGroupId(ANode: PVirtualNode;  AId: integer): PVirtualNode;
var
  NextNode: PVirtualNode;
  Group: PGroup;
begin
  Result := nil;
//  ChangeQueryGroup(ANode);  // <<==== ЭТО УБИРАЕМ (принудительное заполнение уровня), оставляем только в OnInitNode
  NextNode := ANode.FirstChild;
  if Assigned(NextNode) then
    repeat
      GroupsTree.FocusedNode := NextNode; // <<=========ВОТ ЭТА ЗАГВОЗДКА, без нее работает не далее 2 уровня

      Group := GroupsTree.GetNodeData(NextNode);
      if Assigned(Group) then
        if AId = Group.id then
          begin
            Result := NextNode;
            Exit;
          end;
      // Ищем в дочерних ветках
      Result := FindNodeByGroupId(NextNode, AId);
      if Result <> nil then // Нашли в дочерней
        begin
          GroupsTree.Expanded[NextNode] := true;
          break; // выходим
        end
      else
        NextNode := NextNode.NextSibling // Переходим на соседнюю ветку...
    until NextNode = nil;
end;

RootNode := VST.AddChild(VST.RootNode);
if not (vsInitialized in RootNode.States) then
   VST.ReinitNode(RootNode, False);
Data := VST.GetNodeData(RootNode);
...

n := ATree.AddChild(AParent);
group := ATree.GetNodeData(n);

node := vst.GetFirst;
while assigned(node) do begin
  ... обработка
  node := vst.GetNext(node)  
end