кто-нить может запостить код рекурсивного обхода TTreeView?

Можно нерекурсивно перебрать все вершины дерева.

for i:=0 to TreeView1.Items.Count-1 do
begin
    DoSomething(TreeView1.Items[i]);
end;

Рекурсивный код такой:

procedure HandleTree(aTreeView:TTreeView);

procedure Action(aTreeNode:TTreeNode);
var lChild:TTreeNode;
begin
     {здесь обработать aTreeNode в соответствии с алгоритмом}

     lChild:=aTreeNode.getFirstChild;
     repeat
        if lChild<>nil
        then
        begin
           Action(lChild);
        end;
        lChild:=aTreeNode.GetNextChild(lChild);
     until lChild = nil;
end;

begin
    Action(aTreeView.Items[0]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 node:TTreenode;

procedure treewalk(Node:TTreeNode);
var
 i:integer;
begin
ListBox1.Items.Add(node.text);
for i:=0 to node.Count-1 do
 treewalk(node.Item[i]);
end;

begin
Node:=TreeView1.Items.GetFirstNode;
while node<>nil do begin
 Treewalk(node);
 Node:=Node.GetNextSibling;
end;
end;