Запись нескольких значений в одну ячейку

procedure TForm1.Button1Click(Sender: TObject);{обработка отмеченных}
var
  i: Integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i:= 0 to CheckListBox1.Count-1 do
    if CheckListBox1.State[i] = cbChecked
    then sl.Add(CheckListBox1.Items.ValueFromIndex[i]);
  ShowMessage(sl.Text);
  FreeAndNil(sl);
end;
 
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);{обработка установки/снятия чека}
var
  i: Integer;
  cnt: Integer;
  val: String;
begin
  cnt:= 0;
  val:= '';
  for i:= 0 to CheckListBox1.Count-1 do
    if CheckListBox1.State[i] = cbChecked
    then
      begin
        cnt:= cnt + 1;
        val:= val + CheckListBox1.Items.ValueFromIndex[i] + ';';
      end;
  if cnt > 0
  then Edit1.Text:= val
  else Edit1.Text:= '(нет)';
end;
 
procedure TForm1.CheckListBox1Exit(Sender: TObject);{"сворачивание" при выходе}
begin
  CheckListBox1.Height:= 0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:= '(нет)';
  with CheckListBox1 do
    begin
      Height:= 0;
      Clear;
      {тут в цикле наполнение Items.Add(...);}
    end;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);{"развертывание"}
var
  lbheight: Integer;
begin
  if CheckListBox1.Items.Count < 2
  then lbheight:= CheckListBox1.ItemHeight + 4
  else lbheight:= ((CheckListBox1.Items.Count) * CheckListBox1.ItemHeight + 4);
  if lbheight >= 200
  then lbheight:= 200;
  if CheckListBox1.Height < lbheight
  then
    while CheckListBox1.Height < lbheight do
      CheckListBox1.Height:= CheckListBox1.Height + 1
  else CheckListBox1.Height:= 0;
end;

ADOQuery.close; // "отключение" компоненты. 
//Такой вариан рекомендуется на замену ADOQuery.Action:=false;
ADOQuery.SQL.Add('INSERT INTO Таблица_Путь (ID_Маршрут, ID_Курьер, ID_Сумка, ID_Клиент) ');
ADOQuery.SQL.Add('VALUES (:ID_Маршрут, :ID_Курьер, :ID_Сумка, :ID_Клиент)');
ADOQuery.ParamCheck; // проверяет на наличие параметров в запросе
ADOQuery.Parameters.ParamByName('ID_Маршрут').Value:= StrToInt(Edit1.text);
ADOQuery.Parameters.ParamByName('ID_Курьер').Value:=DBLookupComboBox4.KeyValue;
ADOQuery.Parameters.ParamByName('ID_Сумка').Value:=10;
For i:=0 to кол-во клиентов из списка - 1 do
begin
ADOQuery.Parameters.ParamByName('ID_Клиент').Value:=ListBox1.items[i];
ADOQuery.ExecSQL; // выполнение SQL запросов вносящих изменения типо Insert, Delete 
ADOQuery.Post; // Сообщение подвтержения записи
ADOQuery.close;
end;

...
  ADOQuery.Parameters.ParamByName('ID_Сумка').Value:=10;  
  for i:= 0 to CheckListBox1.Count-1 do
  if CheckListBox1.State[i] = cbChecked
    then
      begin
        ADOQuery.Parameters.ParamByName('ID_Клиент').Value:=
          CheckListBox1.Items.ValueFromIndex[i];
        ADOQuery.ExecSQL; // выполнение SQL запросов вносящих изменения типо Insert, Delete 
...

if CheckListBox1.Checked[i] then 
ADOQuery.Parameters.ParamByName('ID_Клиент').Value:=CheckListBox1.Items[i];