Checkbox prüfen

[Darty]

Code:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  If CheckBox1.Checked = True then
    begin
      //Anweisung
    end;
  If CheckBox1.Checked = False then
    begin
      //Anweisung 
    end;
end;