Desmarcar CheckBox sin ejecutar evento on Click

[rastafarey]

Código Delphi [-]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if checkbox1.Checked then
 begin
  showmessage('Marcado!');
 end{si no lo usas para que lo pones
 else
 begin
  showmessage('No marcado!');
 end;}
end;



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