Mehrfachauswahl bei Listboxen

// im Objekinspektor ListBox->MultiSelect = true setzen
// Beispiel-Quelltext (alle gewählten Einträge aus ListBox1 in ListBox2 kopieren): 
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
     for (int i=0; i<ListBox1->Items->Count; i++)
     {
          if (ListBox1->Selected[i]) ListBox2->Items->Add(ListBox1->Items->Strings[i]);
     }
}