//[Nodeの追加]ボタン
procedure TForm1.Button1Click(Sender: TObject);
var
  node_name  : String;
  input_bool : Boolean;
  node       : TTreeNode;
begin
  //入力ダイアログの表示
  input_bool := InputQuery('Node', 'Nodeの名前', node_name);
  //入力された場合、ノードを追加
  if input_bool and (node_name <> '') then
  begin
    node := TreeView1.Items.Add(nil, node_name);
    //追加したノードを選択状態にする
    node.Selected := True;
    TreeView1.SetFocus;
  end;
end;

//[ChildNodeの追加]ボタン
procedure TForm1.Button2Click(Sender: TObject);
var
  node_name : String;
  input_bool : Boolean;
  node : TTreeNode;
begin
  if Assigned(TreeView1.Selected) then
  begin
    //入力ダイアログの表示
    input_bool := InputQuery('ChildNode', 'ChildNodeの名前', node_name);
    //入力された場合、ノードを追加
    if input_bool and (node_name <> '') then
    begin
      node := TreeView1.Items.AddChild(TreeView1.Selected, node_name);
      //親ノードを展開
      node.Parent.Expand(True);
      //追加したノードを選択状態にする
      node.Selected := True;
      TreeView1.SetFocus;
    end;
  end;
end;

//[Nodeの削除]ボタン
procedure TForm1.Button3Click(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then
  begin
    TreeView1.Selected.Delete;
  end;
end;