Поиск и путь к узлу

Code:

{*---------------------------------------------

Parent Text

---------------------------------------------*}

function SrNodeTree(pTreeNode: TTreeNode; var sRuta: string): string;

begin

sRuta := pTreeNode.Text + ' > ' + sRuta;

if pTreeNode.Level = 0 then Result := sRuta

else

   Result := SrNodeTree(pTreeNode.Parent, sRuta);

end;

{*---------------------------------------------

Click an Item

---------------------------------------------*}

procedure TForm1.TreeView1Click(Sender: TObject);

var

sPath: string;

begin

label1.Caption := SrNodeTree(TreeView1.Selected, sPath);

end;