넘 간단한데요...

procedure TForm1.Button1Click(Sender: TObject);
var
  ChkBoxOnClick: TNotifyEvent;
begin
    ChkBoxOnClick := CheckBox1.OnClick;
    CheckBox1.OnClick := nil;
    CheckBox1.Checked := not CheckBox1.Checked;
    CheckBox1.OnClick := ChkBoxOnClick;
end;



우담화 님이 쓰신 글 :
: C++ Builder 팁란에 장성호님께서 올린
: [VCL] 코딩으로 Control 상태변경시 이벤트 핸들러가 호출되는 경우 소스를
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:     TNotifyEvent ChkBoxOnClick=CheckBox1->OnClick;
:     CheckBox1->OnClick=NULL;
:     CheckBox1->Checked=! CheckBox1->Checked;
:     CheckBox1->OnClick=ChkBoxOnClick;
: }
:
: 델파이로 바꾸고 싶은데 어떻게 바꿔야 할까요 ?