Добавление записей в таблицу из CheckListBox

 for i := 0 to CheckListBox1.Count - 1
 do if CheckListBox1.Checked[i]
    then ToDo()

for i := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.Checked[i] then
begin
for i := 0 to CheckListBox2.Count - 1 do
if CheckListBox2.Checked[i] then
begin
ADOQuery.SQL.Text:= ‘Insert(Пользователи,Права) (Value’
+’IntToStr(Integer(CheckListBox1.Items.Objects(CheckListBox1.ItemIndex)),
+’IntToStr(Integer(CheckListBox2.Items.Objects(CheckListBox2.ItemIndex)) )’;
End;
End;
ADOQuery.ExecSQL;

procedure TForm1.Button1Click(Sender: TObject);
  var
  i:integer;
 begin
 ADOQuery.First;
 for i:=0 To ListBox1.Count-1 do
 do if CheckListBox1.Checked[i] then
 begin
   for i:=0 To ListBox2.Count-1 do
   do if CheckListBox2.Checked[i] then
  begin
    ADOQuery.Insert;
    ADOQuery.FieldByName('Пользователи').Value:=ListBox1.Items[i];
    ADOQuery.FieldByName('Права').Value:=ListBox2.Items[i];
    ADOQuery.Post ;
  end;
 end;
end;

CheckListBox1.AddItem(AdoQuery['Пользователи'], TObject(AdoQuery['ID']));

CheckListBox1.Items.Objects[i]

var ID: integer;
  Rght: string;
.....
ADOQuery123.Close;
ADOQuery123.SQL.Text := 'INSERT INTO ваша_таблица ("пользователь", "право") VALUES (:USER,:RGHT)';
ADOQuery123.Parameters.ParamByName('USER').DataType := ftInteger;
ADOQuery123.Parameters.ParamByName('RGHT').DataType := ftString;
 
for i:=0 clBox1.items.Count-1 do
begin
  if clBox1.Checked[i] then
  begin
    for j:=0 to clBox2.Items.Count-1 do
    begin
      if clBox2.Checked[i] then
      begin
        // нужно ID пользователя достать для clBox1.items[i]
        // думаю вы найдете способ
        ID := ....
        ADOQuery123.Parameters.ParamByName('USER').Value := ID;
        // ну а тут предположим, что у вас права хранятся строкой, и именно эту строку вы показываете
        // во втором checklist'е
        Rght := clBox.Items[j];
        ADOQuery123.Parameters.ParamByName('RGHT').Value := Rght;
        ADOQuery123.ExecSQL;
      end;
    end;
  end;
end;

clBox1.items.AddObject('Текст', TObject(ID));

ID := integer( clBox1.items.objects[i] );