Обход TreeView с записью в массив

[JoLan]

Задача: обойти полностью дерево и составить массив.

У меня получилось это:

StrRec = record
  Position: Array of Integer;
  Caption: String;
end;
...
IntArray = Array of Integer;
...
MaxLevel: Integer;
...
procedure TForm1.UpdateTree(StartNode: TTreeNode; var Levels: IntArray; var NodeList: StrRecArray);
begin
  if StartNode.Level > MaxLevel then MaxLevel := StartNode.Level;
  SetLength(Levels,StartNode.Level);
  Levels[High(Levels)] := 0;
  while StartNode.GetNext <> nil do begin
    inc(Levels[High(Levels)]);
    SetLength(NodeList,Length(NodeList)+1);
    SetLength(NodeList[High(NodeList)].Position,StartNode.Level);
    Move(Levels[0],NodeList[High(NodeList)].Position[0],4*StartNode.Level);
    NodeList[High(NodeList)].Caption := StartNode.Text;
    if StartNode.HasChildren then begin
      UpdateTree(StartNode.getFirstChild, Levels, NodeList);
      StartNode := StartNode.GetNext;
    end;
    StartNode := StartNode.GetNext;
  end;
end;

После выполнения данной процедуры наблюдаю, что в массиве хранится больше элементов, чем на самом деле в TreeView. При дебаге выяснилось, что при рекурсивном вызове в массив заносятся элементы от StartNode и до конца. Как реализовать обход только соседних элементов без дочерних и родительских?

[JoLan]

Чуть подправил, теперь обходит корректно:

procedure TForm1.UpdateTree(StartNode: TTreeNode; var Levels: IntArray; var NodeList: StrRecArray);
begin
  if StartNode.Level > MaxLevel then MaxLevel := StartNode.Level;
  while StartNode <> nil do begin
    SetLength(NodeList,Length(NodeList)+1);
    SetLength(NodeList[High(NodeList)].Position,StartNode.Level);
    SetLength(Levels,StartNode.Level);
    inc(Levels[High(Levels)]);
    Move(Levels[0],NodeList[High(NodeList)].Position[0],4*StartNode.Level);
    NodeList[High(NodeList)].Caption := '[*]' + StartNode.Text;
    if StartNode.HasChildren then UpdateTree(StartNode.getFirstChild, Levels, NodeList);
    StartNode := StartNode.GetNextChild(StartNode);
  end;
end;