Как сдлеать активный но не нажимаемый checkbox?

//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
  CheckBox1->Checked = check_box;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1KeyPress(TObject *Sender, char &Key)
{
  CheckBox1->Checked = check_box;
}
//---------------------------------------------------------------------------