Из БД в CheckBox

[ChiefAccent]

Добрый вечер, помогите пожалуйста сделать код, который выявляет по списку пользователей в бд, кто из них заблокирован, а кто нет.
Т.е. в ListBox`e нажимаешь на пользователя, И считывается из БД в checkbox и ставится галочка или наоборот пустота.
В БД тоже true false, галочка или пустота.
При перещелкивании между пользователями в ListBox галочка ставится или убирается в соответствии с данными в БД.
Очень благодарю заранее, уже сутки не могу толком ничего придумать с этим.
Вот кусок кода:

PHP код:

String* Logins;
String* Password;
String* Family;
String* Imya;
String* Surname;
String* Block;



int CountLogin = 0;
int CountPassword = 0;
int CountFamily = 0;
int CountImya = 0;
int CountSurname = 0;
int CountBlock = 0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Logins = new String[1000];
Password = new String[1000];
Family = new String[1000];
Imya = new String[1000];
Surname = new String[1000];
Block = new String[10];



    String QWERY = "SELECT Users.Login, Users.Password, Users.Famliy, Users.Imya, Users.Surname, Users.Block FROM Users";

    Form2->ADOQuery1->Active=false;
    Form2->ADOQuery1->SQL->Clear();
    Form2->ADOQuery1->SQL->Add(QWERY);
    Form2->ADOQuery1->Active = true;

      CountLogin = 0;
      CountPassword = 0;
      CountFamily = 0;
      CountImya = 0;
      CountSurname = 0;
      CountBlock = 0;

    ListBox2->Clear();
    while (!Form2->ADOQuery1->Recordset->Eof)
    {
        //получаем логин
                ListBox2->Items->Add(Form2->ADOQuery1->Fields->Fields[0]->Value);
        Logins[CountLogin]  =  Form2->ADOQuery1->Fields->Fields[0]->Value;
        CountLogin++;

        Password[CountPassword] = Form2->ADOQuery1->FieldByName("Password")->Value;
        CountPassword++;

        Family[CountFamily] = Form2->ADOQuery1->FieldByName("Famliy")->Value;
        CountFamily++;

        Imya[CountImya] = Form2->ADOQuery1->FieldByName("Imya")->Value;
        CountImya++;

        Surname[CountSurname] = Form2->ADOQuery1->FieldByName("Surname")->Value;
        CountSurname++;

       
        Block[CountBlock] = Form2->ADOQuery1->FieldByName("Block")->Value;
        CountBlock++;



       Form2->ADOQuery1->Next();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox2Click(TObject *Sender)
{
    int i= ListBox2->ItemIndex;
    bool l=ListBox2->ItemIndex;

    if (i!=-1)
    {
      Edit1->Text=    Logins[i];
      Edit2->Text=    Password[i];
      Edit3->Text=    Family[i];
      Edit4->Text=    Imya[i];
      Edit5->Text=    Surname[i];
      //CheckBox1->Checked = Block[l];
      //CheckBox1->

    }
           /*    if (Block[l] != 0)
         {
            CheckBox1->Checked = true;
            //CheckBox1->Caption = "Разблокировать";
         } // true
         if (Block[l] == 0)
         {
            CheckBox1->Checked = false;
            //CheckBox1->Caption = "Заблокировать";
         } // false */
    //bool = block;

} 


вот форма

[GreenWizard]

Так никто и не ответил? В общем:
1) не городи огород и выкинь нафиг все те массивы... по нажатию на button3 грузи только логины (можно и какие-то id, так даже проще)
2) ListBox весьма тупой, мне пришлось заменить его на ListView, который может быть внешне похожим, но есть событие onSelectItem
3) в onSelectItem получай логин\id пользователя и выполняй "select * from Users where Name=....." (лучше по id, со строками проблемы есть, нужно использовать параметры, а я о них мало что помню), а ответ БД уже грузи в нужные поля, галочки ставь и т. д.

[ChiefAccent]

Сообщение от GreenWizard

Так никто и не ответил? В общем:
1) не городи огород и выкинь нафиг все те массивы... по нажатию на button3 грузи только логины (можно и какие-то id, так даже проще)
2) ListBox весьма тупой, мне пришлось заменить его на ListView, который может быть внешне похожим, но есть событие onSelectItem
3) в onSelectItem получай логин\id пользователя и выполняй "select * from Users where Name=....." (лучше по id, со строками проблемы есть, нужно использовать параметры, а я о них мало что помню), а ответ БД уже грузи в нужные поля, галочки ставь и т. д.

Не могу понять как ей пользоваться всё равно. Хоть убейте, полазил в инете.