Программа должна загружать фамилии из таблицы, и первые буквы фамилий помещать в combobox без повторений

void __fastcall TForm2::Button1Click(TObject *Sender)
{
    TAnketa->First();
    AnsiString S[22];
    vector<char> al(TAnketa->RecordCount);
 
    int i = 0;
    while(!TAnketa->Eof)
    {
        S[i] = TAnketa->Fields->FieldByName(AnsiString("ФИО"))->AsString;
        for(int j = 0; j < TAnketa->RecordCount; j++)
        if((al[j] != S[i][1]))
        {
           al[j] = S[i][1];
           ComboBox1->Items->Add(static_cast<AnsiString>(al[j]));
        }
        TAnketa->Next();
        ++i;
    }
}

ComboBox1->Items->Clear();
while(!TAnketa->Eof)
    {       
        ComboBox1->Items->Add(TAnketa->Fields->FieldByName("ФИО")->AsString[1]);
    }
      TAnketa->Next();

    ADOQuery1->Active = false;
    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add(L"SELECT DISTINCT LEFT(ФИО, 1) AS Letter");
    ADOQuery1->SQL->Add(L"FROM Анкета");
    ADOQuery1->SQL->Add(L"ORDER BY LEFT(ФИО, 1)");
    ADOQuery1->Active = true;
 
    ComboBox1->Items->Clear();
    while (!ADOQuery1->Eof)
    {
        ComboBox1->Items->Add(ADOQuery1->FieldByName("Letter")->AsString);
        ADOQuery1->Next(); // Внутри цикла
    }