Fórum CheckListBox... #219786

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   for i:=0 to CheckListBox1.Items.Count - 1 do
      begin

      ...
      query1campo.value:=CheckListBox1.Checked[i];
      ...

      end;
end;

procedure Tcad_empresa_cliente.CheckListBox1Exit(Sender: TObject);
begin
   module.tb_emprecli.edit;
   module.tb_emprecliPadarias.Value      := CheckListBox1.Checked[1];
   module.tb_emprecliSupermercados.Value := CheckListBox1.Checked[2];
   module.tb_emprecliPostoGasolina.Value := CheckListBox1.Checked[3];
   module.tb_emprecliPapelarias.Value    := CheckListBox1.Checked[4];
   module.tb_emprecliFarmacias.Value     := CheckListBox1.Checked[5];
   module.tb_emprecliDentista.Value      := CheckListBox1.Checked[6];
   module.tb_emprecliLaboratorio.Value   := CheckListBox1.Checked[7];
   module.tb_emprecliClinicas.Value      := CheckListBox1.Checked[8];
   module.tb_emprecliOpticas.Value       := CheckListBox1.Checked[9];
   module.tb_emprecli.post;
end;