Delphi中用DBMemo修改数据，保存不上问题？

环境是Delphi7，BDE+Oracle8i
  查看、修改、插入数据都是通过Query1+DataSource1+UpdateSQL1
  使用了很多的感知控件，用感知控件修改数据。
  用保存按钮来保存修改的数据，代码如下：
  procedure TFrmTransResinLog.ToolButton1Click(Sender: TObject);
  begin
    inherited;
    If Query1.State in [dsInsert,dsEdit] then
    Begin
      Query1.Post;
      EditData;//非感知控件结果显示
    End;
  end;  点击保存按钮后，有的时候部分数据保存不上，
  用单步跟踪查看代码，数据都能保存上。
  不知道Delphi7中的感知控件有Bug，
  希望高手给以指点一下，谢谢。