Set the CheckBox.Checked without the OnClick being called


Is there another way to set the CheckBox.Checked without the OnClick being called than:

procedure TForm.SetCheckBox(A : boolean);
var SaveOnClick : TNotifyEvent;
begin
SaveOnClick := CheckBox.OnClick;
CheckBox.OnClick := nil;
CheckBox.Checked := A;
CheckBox.OnClick := SaveOnClick;
end;

Maybe in one instruction ? Ok: I can make one procedure for the TCheckBox, one for the TEdit etc.

So I want the OnClick only when then user clicks.

Thanks,
Fons.
.