Desmarcar CheckBox sin ejecutar evento on Click

[jlrdz]

Saludos, tengo dos componentes un CheckBox y un Boton

Este es el codigo del CheckBox

Código Delphi [-]

//Código Checkbox
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if checkbox1.Checked=True then
 begin
  showmessage('Marcado!');
 end
 else
 begin
  showmessage('No marcado!');
 end;
end;


//Código Botón
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox1.Checked:=False;
end;

Cuando doy click en el checkbox y se marca me muestra el mensaje de "Marcado", cuando no esta marcado pues se muestra el otro mensaje pero lo que quiero es que cuando yo pulse el Button1 me desmarque el CheckBox1 sin que me muestre el mensaje "No marcado", es decir sin que ejecute el evento de CheckBox1, sólo que me quite la marca, es posible esto y si es asi cómo se hace?

Gracias.