procedure TForm1.Button3Click(Sender: TObject);
var
  trnd: TTreeNode;
begin
  //選択されたノードがない場合，Selected の値は nil
  if TreeView1.Selected <> nil then
  begin
    TreeView1.Items.AddChild(TreeView1.Selected, Edit2.Text);
    //親ノードを展開
    TreeView1.Selected.Expanded := True;
  end
  else
  begin
    ShowMessage('ノードが選択されていません。');
  end;
end;