Problem mit Checkbox

[Delphi Star]

Ich habe einen Checkbox, und gebe dann den Befehl Checkbox1.checked := true; ein, dann wird zwar das Kreuzchen gesetzt, aber der Befehl der mit der Checkbox verbunden ist wird auch ausgeführt.
Wie kann man jetzt verhindern das der Befehl ausgeführt wird und nur das Häckchen gesetzt wird :?:

[ibp]

welcher befehl? hä? :gruebel:

[fkerber]

Hi!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var safe: TNotifyevent;
begin
safe:=Checkbox1.OnClick;
Checkbox1.OnClick:=nil;
checkbox1.Checked:=true;
Checkbox1.OnClick:=safe;
end;

Ciao Frederic