Form1::CheckBoxClick(TObject *Sender)
{
　TCheckBox *box = (TObject *)Sender;
　if (box->Checked && this->checkCount <= MAX_CHECKCOUNT)
　　this->checkCount++;
　else
　　box->Checked = false;
}
検証も何も全くしてない思いつきコード