多步操作产生错误问题(50分)

我的这段代码，出现‘多步操作产生错误。请检查每一步的状态值’的错误，但值可以插进去，请指点。谢谢！
procedure Tfghtlyjl.Button2Click(Sender: TObject);
begin
with adthtlyjl do
begin
if edthtbh.Text= '' then
begin
application.MessageBox('请输入合同编号','提示',MB_OK);
exit;
end;

edit;
insert;
if edtlyrbm.Text = '' then
begin
fieldbyname('holderid').AsFloat:= 0.0;

end
else
begin
fieldbyname('holderid').AsFloat:= strtofloat(edtlyrbm.Text);

end;
if edtjbrdm.Text = '' then
begin
fieldbyname('refid').AsFloat:= 0.0;

end
else
begin
fieldbyname('refid').AsFloat:= strtofloat(edtjbrdm.Text);

end;
if edthtzt.Text = '' then
begin
fieldbyname('constatus').AsFloat:= 0.0;

end
else
begin
fieldbyname('constatus').AsFloat:= strtofloat(edthtzt.Text);
end;
fieldbyname('concode').AsString:= trim(edthtbh.Text);
post;
end;
end;

procedure Tfghtlyjl.Button2Click(Sender: TObject);
begin
with adthtlyjl do
begin
if edthtbh.Text= '' then
begin
application.MessageBox('请输入合同编号','提示',MB_OK);
exit;
end;

edit; // 问题出在这里
insert;//
if edtlyrbm.Text = '' then
begin
fieldbyname('holderid').AsFloat:= 0.0;

end
else
begin
fieldbyname('holderid').AsFloat:= strtofloat(edtlyrbm.Text);

end;
if edtjbrdm.Text = '' then
begin
fieldbyname('refid').AsFloat:= 0.0;

end
else
begin
fieldbyname('refid').AsFloat:= strtofloat(edtjbrdm.Text);

end;
if edthtzt.Text = '' then
begin
fieldbyname('constatus').AsFloat:= 0.0;

end
else
begin
fieldbyname('constatus').AsFloat:= strtofloat(edthtzt.Text);
end;
fieldbyname('concode').AsString:= trim(edthtbh.Text);
post;
end;
end;

你为什么edit后还要insert可能是这里的错

去掉EDIT还是有这个问题啥

edit; // 问题出在这里
insert;//


如果你的数据集已经是打开的就写
edit;
如果没有打开就写
open;
append or insert;

多人接受答案了。