void __fastcall TApplicationForm::Click(TObject *Sender){ TCheckBox *checkBox; if ( (checkBox = dynamic_cast < TCheckBox *>(Sender) ) != NULL ) { switch ( checkBox->Tag ) { case 1: break; case 2: break;