代码通的过，运行起来出现异常，why?help!

Question

我的插入代码：
adotable1.Append ;
adotable1.FieldByName('托单').asvariant:=edit1.Text ;
adotable1.FieldByName('地点').asvariant:=edit2.text;
//下同
if(adotable2.seek(edit2.Text))=true then
adotable1.FieldValues ['公里数']:=adotable2.FieldValues ['公里数'];
adotable1.Post;adotable1.Append ;
adotable1.FieldValues ['托单']:=edit1.Text ;
adotable1.FieldValues ['地点']:=edit2.text;
if(adotable2.seek(edit2.Text))=true then
adotable1.FieldValues ['公里数']:=adotable2.FieldValues ['公里数'];
adotable1.Post;