我想请教一些数据的问题

我请教一个数据库的问题：
with form1.adoquery1 do
begin
Close;
SQL.Clear;
sql.add('delete from ta1');
open;
end;
这删除数据库TA1.里的全部记录。
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
form1.ADOQuery1.Open;
form1.ADOQuery1.Last;
if form1.ADOQuery1.RecordCount=0 then i:=0
else
i:=form1.ADOQuery1.FieldValues['id'];
with form1.ADOQuery1 do
begin
insert;
fieldvalues['id']:=i+1;
fieldvalues['Address']:= ComRec1.PIC_Add;
fieldvalues['Data']:=datetimetostr(now());
post;
open;
end;
end;
我在这个事件里插入数据 ，为什么总出现错误呢。请高手指教。他们在不同的事件，如果把前面的代码去掉，就没有错误了。