Коварный ComboBox - определить, что в нем выбрано

ComboBox1->ItemIndex = 0

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  ComboBox2->Items->Clear(); //Очищаем комбобокс гудков
  switch(ComboBox1->ItemIndex)
   {
     case 0 : //IBM
//Заполняем комбобокс2 значениями в зависимости от типа БИОС
       ComboBox2->Items->Add("Один короткий");
       ComboBox2->Items->Add("Три коротких, три длинных, три коротких");
       ...
       break;
     case 1 : //AMIBIOS
       ComboBox2->Items->Add("Один короткий");
       ...       
       break;
     ...
   }
}

void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
  Memo1->Lines->Clear(); //Очищаем мемо
  switch(ComboBox1->ItemIndex)
   {
     case 0 : //IBM
       switch(ComboBox2->ItemIndex)
         {
           case 0:
             Memo1->Lines->Add("Полет нормальный");
             break;
           case 1:
             Memo1->Lines->Add("SOS");
             break;
           ...
         }
       break;
     case 1 : //AMIBIOS
       switch(ComboBox2->ItemIndex)
         {
           case 0:
             Memo1->Lines->Add("Полет нормальный");
             break;
           ...
         }
       break;
       ...
   }
}