菜鸟问题快来看！

保存按钮中的代码，开始很快，几白条记录后变得很慢？？怎么回事？？
adodataset1.Edit;
   with adodataset1 do
     begin
      
        //保存数据
        adodataset1.FieldByName('name').AsString:=edit2.text;
        adodataset1.FieldByName('adress').AsString:=edit3.Text;
        adodataset1.FieldByName('sex').AsString:=combobox1.Text;
              
        adodataset1.Post;
        adodataset1.First;
         adodataset1.Close;
         adodataset1.Open;
         adodataset1.Locate('id',ls_id1,[]);
         adodataset1.Edit;
         adodataset1.FieldByName('relation').AsString:=ls_id1 ;
         ls_save:='';
         end;
         adodataset1.Edit;
          adodataset1.Post;