//[ListItemの追加]ボタン
procedure TForm1.Button4Click(Sender: TObject);
var
  item        : TListItem;
  st1, st2    : String;
  input_bool  : Boolean;
begin
  if Assigned(TreeView1.Selected) then
  begin
    //入力ダイアログの表示
    st1 := '項目' + IntToStr(ListView1.Items.count);
    input_bool := InputQuery('項目名', '項目名', st1);
    //入力された場合、アイテムを追加
    if input_bool and (st1 <> '') then
    begin
      item := ListView1.Items.Add;
      item.Caption := st1;
      //入力ダイアログの表示
      input_bool := InputQuery('内容', '内容', st2);
      //入力された場合、アイテムを追加
      if input_bool and (st2 <> '') then
        item.SubItems.Add(st2);
    end;
  end;
end;

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