[[coso]]

Hola,
deberias recorrer la propiedad Items tal cual, no hace falta recursividad:

Código Delphi [-]

Memo1.Clear;
for i := 0 to treeview1.Count - 1 do
Memo1.Add(Treeview1.Items[i].Text);