//[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;
    //-----以下を追加
    //Itemを追加するタイミングでIniファイルにも追加
    FListIni.WriteString(TreeView1.Selected.Text, st1, st2);
    //-----ここまで
  end;
end;

//[ListItemの削除]ボタン
procedure TForm1.Button5Click(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  begin
    //-----以下を追加
    //Itemを削除するタイミングでIniファイル内のデータも削除
    FListIni.DeleteKey(TreeView1.Selected.Text, ListView1.Selected.Caption);
    //-----ここまで
    ListView1.Selected.Delete;
  end;
end;