Выдает ошибку но работает.Что не так?

[Студло]

Опять таки прибегаю за помощью на ваш форум
Вообщем есть база данных а в ней таблица. Некоторые поля заполняются через combobox то есть выбор у пользователя ограничен. И вот незадача, создал я форму для редактирования записей, однако нажатии на изменить вылетает ошибка, мол Table3 is not in insert mod типа такого...однако в DBGrid'е изменения отображаются и в таблице тоже все сохраняется...прошу помоч убрать ошибку...вот код кнопочки изменить:

procedure TForm16.Button1Click(Sender: TObject);
var
p:integer;
begin
form1.table3.edit;
form1.table3.fieldbyname('FIO_ISP').asString:=edit1.Text;
form1.table3.fieldbyname('NAZ').asString:=edit4.Text;
p:=combobox1.ItemIndex;
form1.Table3.First;
repeat
form1.Table3.Next;
p:=p-1;
until p=-1;
form1.Table3.FieldByName('ID_TIP').Asinteger:=form1.Table5.FieldByName('ID_TIP').Asinteger;
p:=combobox2.ItemIndex;
form1.Table3.First;
repeat
form1.Table3.Next;
p:=p-1;
until p=-1;
form1.Table3.FieldByName('ID_ST').Asinteger:=form1.Table6.FieldByName('ID_ST').Asinteger;
p:=combobox3.ItemIndex;
form1.Table3.First;
repeat
form1.Table3.Next;
p:=p-1;
until p=-1;
form1.Table3.FieldByName('ID_NOS').Asinteger:=form1.Table7.FieldByName('ID_NOS').Asinteger;
form1.Table3.FieldByName('DLIT').Asstring:=edit3.text+':'+edit6.text;
form1.Table3.FieldByName('KOL_VO').Asinteger:=strtoint(edit7.Text);
form1.Table3.FieldByName('STOIM').Asinteger:=strtoint(edit8.Text);
form1.table3.post;
end;

[Stilet]

form1.table3.edit;

Думаю что это нужно прописывать везде после того как используешь Next и First, потому как они должны снимать режим редактирования, а не только в начале.