application.messagebox 弹出后，为什么要连续2次确认才能执行后面的语句？该如何解决

application.messagebox 弹出后，为什么要连续2次确认才能执行后面的语句？
代码如下：
procedure   TForm1.CheckBox1Click(Sender:TObject);
begin
if   edit1.text= ' '
      then
        begin
        application.messagebox( '请先输入内容再打勾 ', '提示 ',MB_OKCANCEL);
        checkbox1.checked:=false;
        end;
end;


[解决办法]
CheckBox1Click这个事件本身就会修改Checked这个属性.....你把MessageBox那句话去掉..估计也差不多...
[解决办法]
应该是Checked属性改变的时候会触发CheckBox1Click的执行~~~
[解决办法]
看错了。。。。

if checkbox1.checked And edit1.text= ' ' then
begin
application.messagebox( '请先输入内容再打勾 ', '提示 ',MB_OKCANCEL);
checkbox1.checked:=false;
end;
end;