String cambio1;
try{
cambio1 = ListBox1->Items->Strings[ListBox1->ItemIndex];
ListBox1->Items->Delete(ListBox1->ItemIndex);
ListBox2->Items->Strings[aux]= cambio1;
aux++;
aux1--;
}
catch(Exception & e){
ShowMessage("Elige un componente");
}