如何实现向数据库添加记录时控制dbedit框中的值不为空？

Question

如果将检验代码添加到beforepost当中:
procedure Tform1.beforepost(DataSet:TDataSet)
begin
  if dbedit1.text<>'' then
  begin
    table1.cancel;
    dbedit1.setfocus;
  end;
end;
那么如果按下添加按钮，Delphi仍然会添加一条新的纪录，只是各字段的值不是输入值，而是数据库指针当前指向记录的各字段值(dbedit项对应的那个字段为空)。除cancel外有什么别的实现办法吗？可以取消添加过程或是让程序停下来。

Answer 1

procedure Tform1.beforepost(DataSet:TDataSet)
begin
  if Trim(dbedit1.text)<>'' then
  begin
    table1.cancel;
    dbedit1.setfocus;
  end;
end;

Answer 2

不是多余空格的原因，我试过了
BTW:程序里的判断条件应该是dbedit1.text=''继续期待解答中

Answer 3

那就全没啦，和application.terminate一样了
是我没说清楚，其实我是指回到等待输入的状态，而不是推出程序