Подгружать значения при выборе названия

void __fastcall TForm1::FormCreate(TObject *Sender)
{
ComboBox1->Clear();
ComboBox1->Items->Add("Сухое");
ComboBox1->Items->Add("Полусладкое");
ComboBox1->Items->Add("Шампанское");
ComboBox1->Items->Add("Три топора");
ComboBox1->ItemIndex = 0;
 
StringGrid1->Cells[0][0]="Наименование";
StringGrid1->Cells[1][0]="В наличии";
StringGrid1->Cells[2][0]="Стоимость";
StringGrid1->Cells[3][0]="Разбодяжено";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1Select(TObject *Sender)
{
switch(ComboBox1->ItemIndex)
  {
  case 0 : StringGrid1->Cells[0][1]="Сухое";
           StringGrid1->Cells[1][1]="Есть";
           StringGrid1->Cells[2][1]="500";
           StringGrid1->Cells[3][1]="Нет";
           break;
  case 1 : StringGrid1->Cells[0][1]="Полусладкое";
           StringGrid1->Cells[1][1]="Нет";
           StringGrid1->Cells[2][1]="666";
           StringGrid1->Cells[3][1]="Еще как";
           break;
  case 2 : StringGrid1->Cells[0][1]="Шампанское";
           StringGrid1->Cells[1][1]="Есть";
           StringGrid1->Cells[2][1]="1000";
           StringGrid1->Cells[3][1]="Нет";
           break;
  case 3 : StringGrid1->Cells[0][1]="Три топора";
           StringGrid1->Cells[1][1]="Неа";
           StringGrid1->Cells[2][1]="Бесценно";
           StringGrid1->Cells[3][1]="Как можно?!";
           break;
  }
}