CheckListBox - занесение отмеченных элементов в БД Access и обратный процесс

int i;
for (i = 0; i < CheckListBox->Items->Count-1; i++) {
  if (CheckListBox->Checked[i]) 
{ /* куда то нужно записывать индекс i элемента*/ }

TIniFile *Ini = new TIniFile("c:/options.ini");
for(int i = 0; i < Checklistbox1->Items->Count; i++)
{
     ini->WriteBool("items",Checklistbox1->Items[i], Checklistbox1->Checked[i]);
}
 
for(int i = 0; i < Checklistbox1->Items->Count; i++)
{
   Checklistbox1->Items[i] = ini->ReadBool("items",Checklistbox1->Items[i], false);
}

char stroka;
for(int i = 0; i < Checklistbox1->Items->Count; i++)
{
     stroka->WriteBool("items",Checklistbox1->Items[i], Checklistbox1->Checked[i]);
}
 
for(int i = 0; i < Checklistbox1->Items->Count; i++)
{
   Checklistbox1->Items[i] = stroka->ReadBool("items",Checklistbox1->Items[i], false);
}

//считывание
int i;
AnsiString  str;
for (i = 0; i < CheckListBox1->Items->Count-1; i++)
  {
   if  (CheckListBox1->Checked[i])
       { str += IntToStr(i); }
  }
 
//занесение обратно
 for (i = 0; i < str.Length()-1; i++)
    {
     CheckListBox2->Checked[str[i]+1] = true;
    }

//считывание
int i;
AnsiString  str;
for (i = 0; i < CheckListBox1->Items->Count-1; i++)
  {
   if  (CheckListBox1->Checked[i])
       { str += IntToStr(i); }
  }
//занесение обратно
 for (i = 1; i < str.Length()+1; i++)
    {
    CheckListBox2->Checked[StrToInt(str[i])] = true;
    }