Обновление данных в VirtualTreeView

[rom4eg999666]

Всем привет. В программе часто обновляется VirtualTreeView. Интервал обновления около 100мс. Но, иногда начинаются мерцания. При выставлении интервала на больший они успешно пропадают. Вопрос: как наиболее эффективно обновлять данные в VirtualTreeView?
Процедура обновления данных:

procedure TDownloadBar.AddInfo(VST: TBaseVirtualTree; N: Integer;
Inf, Path: string);
var
  Data: PTreeData;
  Node: PVirtualNode;
begin
  Node := NodeByIndex(VST, N);

  if not Assigned(Node) then
    Exit;

  Data := VST.GetNodeData(Node);

  Data.Inf := Inf;
  Data.Path := Path;

  VST.InvalidateNode(Node);
end;

Функция NodeByIndex:

function TDownloadBar.NodeByIndex(const VST: TBaseVirtualTree;
  const anIndex: Integer): PVirtualNode;
var
  Count: Integer;
  Node: PVirtualNode;
begin
  Node := VST.GetFirst(False);
  Count := 0;

  while (Node <> nil) and (Count < anIndex) do
  begin
    Node := aTree.GetNext(Node);
    inc(Count);
  end;

  Result := Node;
end;