Обновление VirtualStringTree по таймеру

[woofer]

Использую компонент VirtualStringTree и есть иерархическая струтура которая обновляется по таймеру. Как сделать чтобы после обновления раскрытые ветки оставались открытыми. Заранее спасибо.

[woofer]

private
    FList: TList;
procedure TForm1.FillExpandedNode;
var
  p,t: PNodeData;
  V: PVirtualNode;
begin
  FList.Clear;
  V := VirtualStringTree1.GetFirst;
  while V <> nil do
  begin
    if (V.ChildCount > 0) and (VirtualStringTree1.Expanded[V]) then
    begin
        New(t);
      p := VirtualStringTree1.GetNodeData(V);
      t^.ID := p^.ID;
      FList.Add(t);
    end;
    V := VirtualStringTree1.GetNext(V);
  end;
end;

procedure TForm1.ExpandSaveNodes;
var
  p,t: PNodeData;
  V: PVirtualNode;
  i: integer;
begin
  V := VirtualStringTree1.GetFirst;
  while V <> nil do
  begin
    if (V.ChildCount > 0) and not (VirtualStringTree1.Expanded[V]) then
    begin
      p := VirtualStringTree1.GetNodeData(V);
      for i := 0 to Flist.Count-1 do
      begin
        t:= PNodeData(FList[i]);
        if p^.ID=t.ID then
        begin
          VirtualStringTree1.Expanded[V] := true;
          break;
        end;
      end;
    end;
    V := VirtualStringTree1.GetNext(V);
  end;
end;

Вот рабочий код