Поиск текста в ComboBox

 TStringList* sl= new TStringList();
 sl->AddStrings(ComboBox2->Items);
 sl->Text.Pos(ComboBox4->Items->Text);
  for(int i = 0; i < sl->Count; i++){
      if(sl->Strings[i].Pos(ComboBox4->Items->Text)){
         for(int j = 0; j < i; j++){
            Memo1->Lines->Add(sl->Strings[j]);
}}}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    sL = new TStringList();
        // Это у тебя в ComboBox2? Тогда убери и замени везде sL на ComboBox2->Items
    sL->Add("start 1");
    sL->Add("start 12");
    sL->Add("finish 22");
    sL->Add("finish 33");
    sL->Add("33234");
    sL->Add("end");
}
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete sL; // Это тоже тогда не нужно
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox4Change(TObject *Sender)
{
    TComboBox *cbx = static_cast<TComboBox*>(Sender);
 
    String Filter = cbx->Text;
    cbx->DroppedDown = True;
    cbx->Text = Filter;
    cbx->SelStart = Filter.Length();
 
    for(int i = 0; i < sL->Count; i++)
    {
        if(sL->Strings[i].Pos(Filter))
        {
            if(cbx->Items->IndexOf(sL->Strings[i]) < 0)
                cbx->Items->Add(sL->Strings[i]);
        }
        else
        {
            int idx = cbx->Items->IndexOf(sL->Strings[i]);
            if(idx >= 0) cbx->Items->Delete(idx);
        }
    }
}

    cbx->DroppedDown = true;
    this->Perform(WM_SETCURSOR, 0, 0); // Вот так

 
void __fastcall TForm1::ComboBox4Change(TObject *Sender)
{
       if (ComboBox4->Text=="122")
ShowMessage("11");

void __fastcall TForm1::ComboBox4Change(TObject *Sender)
{
       if (ComboBox4->Text=="Поиск")
ComboBox4->Text=="";
}

void __fastcall TForm1::ComboBox4Enter(TObject *Sender)
{
     if (ComboBox4->Text=="Поиск")
          ComboBox4->Text = "";
}

ComboBox2->ItemIndex = ComboBox4->ItemIndex;