字段空值问题（万急!!!）

点击“保存”，执行如下代码：
 
 if (edit2.Text='') or (edit3.Text='')or (edit5.Text='') then
  begin
   showmessage('代码、名称和统计类别不能为空值！')
  end
  else
  begin
   with form_coalinfo.ADOTable1 do
   begin
    try
     if form_coalinfo.flag_ then append
     else edit;
     fieldbyname('xh').AsString:=edit1.Text;
     fieldbyname('code').AsString:=edit2.Text;
     fieldbyname('name').AsString:=edit3.Text;
     fieldbyname('standard').AsString:=edit4.Text;
     fieldbyname('kind').AsString:=edit5.Text;
     fieldbyname('pyzt').AsString:=edit6.Text;
     post;
     self.Close;
    except
     showmessage('保存过程中出现异常，没有保存！');
     cancel;
    end;
   end;
  end;