[Shurikss123]

Чето типа Этого!

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Add(TreeView1.Selected,Edit1.Text);
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Form1.Caption:=TreeView1.Selected.Text;
end;