Пишу курсач. Нужна помощь по базам данных.

void __fastcall TFindMemory::ComboBox1Change(TObject *Sender)
{
 ADOTable1->Filtered = false; 
 ADOTable1->Filter = "имя_поля фильтрации="+QuotedStr(ComboBox1->Text+"*");
 ADOTable1->Filtered = true; 
}

void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM имя_таблицы WHERE Жанр ='" + ComboBox1->Text + "'");
ADOQuery1->Open();

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM BDFilmoteka WHERE Жанр ='" + ComboBox1->Text + "'");
ADOQuery1->Open();

ComboBox1->Text + "'")

void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear(); 
ADOQuery1->SQL->Add("SELECT * FROM BDFilmoteka WHERE Жанры ='" + ComboBox1->Text + "'");
ADOQuery1->Open();Типа открывает таблицу из BDFilmoteka ?
}

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        ADOQuery2->SQL->Add("SELECT * FROM BDFilmateka WHERE Жанры ='" + ComboBox1->Text + "'");
        ADOQuery2->Open();
        DBGrid1->DataSource->DataSet=ADOQuery2;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::ComboBox1DropDown(TObject *Sender) // как вариант
{
        ComboBox1->Clear(); 
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("SELECT DISTINCT [Жанры] FROM BDFilmateka");
        ADOQuery1->Open();
        ADOQuery1->First();
        for (int i=0; i<ADOQuery1->RecordCount; i++)
        {
        ComboBox1->Items->Add(ADOQuery1->FieldByName("Жанры")->AsString);
        ADOQuery1->Next();
        }
}