如何检查所有复选框？

Question

在VCL表单申请表上，我有一个包含许多复选框的表单。如何通过单击按钮检查所有复选框！

Os赢7 64

    void __fastcall TForm1::Button1Click(TObject *Sender)
{
   // what code to put to select all?
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{

}
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{

}
...