奇怪 ！为何总是忙一步

Question

我用dbgrid的editbutton事件打开另一个窗口，选择一定数据后在dbgrid中显示
并增加一条记录，为何在输入第一条记录没有增加第二条空白记录！而再一次点后才出现第二条记录并已经赋值我的代码如下：
procedure Tcgdfrm.DBGrid1EditButtonClick(Sender: TObject);
begin
wpshzhfrm.show;
end;
弹出窗体的关闭事件代码：
procedure Twpshzhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if cgdfrm.tempdb.State<>dsinsert then cgdfrm.TempDB.Insert;
   cgdfrm.TempDB.FieldByName('hpmc').asstring:=wpshzhfrm.Edit1.Text;
   cgdfrm.TempDB.Post;
  cgdfrm.TempDB.Append;
  cgdfrm.datasource1.DataSet := cgdfrm.ExportDB(cgdfrm.TempDB);
end;

Answer 1

procedure Twpshzhfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if cgdfrm.tempdb.State<>dsinsert then cgdfrm.TempDB.Insert;
   cgdfrm.TempDB.FieldByName('hpmc').asstring:=wpshzhfrm.Edit1.Text;
   cgdfrm.TempDB.Post;
  cgdfrm.TempDB.Append;
  cgdfrm.datasource1.DataSet := cgdfrm.TempDB;
end;