退出提示已解决，修改提示又有问题了，如何解决呢？

procedure   TForm1.FormCloseQuery(Sender:   TObject;   var   CanClose:   Boolean);  
  begin  
      CanClose   :=   MessageBox(Handle,   '你真的要退出吗？',   '警告',  
          MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK;  
  end;  
  退出提示是正确的，但用到了修改就有了问题  
  procedure   TForm1.Button4Click(Sender:   TObject);  
  var  
  canedit:Boolean;  
  begin  
  if  
  Canedit   =   MessageBox(Handle,   '你真的要退出吗？',   '警告',  
          MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK         then  
   
                    begin  
  ADOQuery1.Edit;  
   
  ADOQuery1.Fields[1].AsString:=edit2.Text;  
  ADOQuery1.Fields[2].AsString:=edit3.Text;  
  ADOQuery1.Fields[3].AsString:=edit4.Text;  
  ADOQuery1.Fields[4].AsString:=ComboBox1.Text;  
  ADOQuery1.Fields[5].AsString:=RichEdit1.Text;  
  ADOQuery1.Post;  
                        end  
                              else  
  end;  
  错误提示：incompatible   types(if后的条件语句出错)

if  
  Canedit   =   MessageBox(Handle,   '你真的要退出吗？',   '警告',  
  MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK   then  
  ？？？？？？？？？  
  改成：  
  if  
  Canedit   =   （MessageBox(Handle,   '你真的要退出吗？',   '警告',  
  MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK）   then  
  最好是：  
  if  
  MessageBox(Handle,   '你真的要退出吗？',   '警告',  
  MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK   then

笔误，修改如下：  
  if  
  Canedit   =   （MessageBox(Handle,   '你真的要退出吗？',   '警告',  
  MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK）   then  
  －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－  
  if  
  True   =   （MessageBox(Handle,   '你真的要退出吗？',   '警告',  
  MB_OKCANCEL   +   MB_ICONWARNING)   =   IDOK）   then