[Uniq!]

Код:

procedure TSetingForm.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
 i:=0;
 for i:=0 to CheckListBox1.Count - 1 do
  begin
   poisk.DBGridEh1.Columns[i].Visible := CheckListBox1.Checked[i];
   ini.WriteString('Poisk',CheckListBox1.Items[i],CheckListBox1.Checked[i]); 
  end;
end;

ini.WriteString(Имя_Секции,Имя_Значения,Значение);