Zamykanie ComboBox za pomocą kodu

Aby po kliknięciu przycisku Button1 zamknąć ComboBox1:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ComboBox1->Perform(CB_SHOWDROPDOWN, 0, 0);
}