[dr. F.I.N.]

Код:

function TreePath(Item: TTreeNode): String;
begin
  Result := '';
  if Item = nil then Exit;
  Result := Result + Item.Text;
  if Item.Parent = nil then Exit;
  Result := TreePath(Item.Parent) + '\' + Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := TreePath(TreeView1.Selected);
end;

2 минуты