void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int iTotalCounts = 0;
  for (int i = 0; i < ControlCount; i  )
  {
    // Controls[i]->ClassName 取得類別名稱
    AnsiString szTmp = Controls[i]->ClassName();
    if (szTmp == "TCheckBox")
    {
      iTotalCounts  ;
      // 判斷CheckBox狀態
      if ( ((TCheckBox*)Controls[i])->Checked )
      {
        // Controls[i]->Name 取得名稱
        ShowMessage(Controls[i]->Name   " 狀態為選取" );
      }
      else
      {
        ShowMessage(Controls[i]->Name   " 狀態沒選取" );
      }
    }
  }      ShowMessage("共 "   IntToStr(iTotalCounts)   " 個CheckBox");
}