Активация CheckBox кодом

[GrEFeRFeeD]

Возможно я плохо искал, но не нашёл подобных вопросов.
Есть ли возможность каким-либо образом программно активировать, либо же деактивировать, CheckBox?
Например задача:
Есть Button. При нажатии на него CheckBox1 активируется либо деактивируется, если уже активирован.

[zoltanleo]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked:= not CheckBox1.Checked;

  if CheckBox1.Checked
    then Button1.Caption:= 'Deactivate checkbox'
    else Button1.Caption:= 'Activate checkbox';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked:= False;
  Button1.Caption:= 'Activate checkbox';
end;  

[GrEFeRFeeD]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckBox1.Checked:= not CheckBox1.Checked;

  if CheckBox1.Checked
    then Button1.Caption:= 'Deactivate checkbox'
    else Button1.Caption:= 'Activate checkbox';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked:= False;
  Button1.Caption:= 'Activate checkbox';
end;  

Благодарю!