Den Text des aktuell markierten Elements erhälst du per "TreeView.Selected.Text"
Etwa so:
Delphi-Quellcode:
procedure TForm.TreeViewClick(Sender: TObject);
begin
Edit.Text := TreeView.Selected.Text;
end;
procedure TForm.ButtonClick(Sender: TObject);
begin
Treeview.Selected.Text := Edit.Text;
end;