Поиск в ComboBox в режиме реального ремени

void __fastcall TForm11::ComboBox1Change(TObject *Sender)
{
    ComboBox1->AutoComplete=false;
    Form1->Manufacturer->Close();
    Form1->Manufacturer->SQL->Clear();
    Form1->Manufacturer->SQL->Text="SELECT DISTINCT Производитель FROM [Лист1$] WHERE [Производитель] LIKE '%"+ComboBox1->Text+"%' ORDER BY Производитель";
    Form1->Manufacturer->Open();
    Form11->ComboBox1->Clear();
    Form1->Manufacturer->First();
    while(!Form1->Manufacturer->Eof)
        {
             Form11->ComboBox1->Items->Add(Form1->Manufacturer->FieldByName("Производитель")->AsString);
             Form1->Manufacturer->Next();
        }
}

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    ComboBox1->AutoComplete=false;
    String h;
    h+=ComboBox1->Text;
 
    Form1->Manufacturer->Close();
    Form1->Manufacturer->SQL->Clear();
    Form1->Manufacturer->SQL->Text="SELECT DISTINCT nam FROM [Table1] WHERE [nam] LIKE '%"+ComboBox1->Text+"%'";
    Form1->Manufacturer->Open();
    Form1->ComboBox1->Clear();
    Form1->Manufacturer->First();
    while(!Form1->Manufacturer->Eof)
        {
             Form1->ComboBox1->Items->Add(Form1->Manufacturer->FieldByName("nam")->AsString);
             Form1->Manufacturer->Next();
        }
 
 
    ComboBox1->Text=h;
    ComboBox1->SetFocus();
    ComboBox1->SelStart=ComboBox1->Text.Length();
}

ComboBox1->DroppedDown=true;