Ошибка Access violation...

[ара]

Доброго времени суток! Выполняю запрос на изменение данных. Первый раз запрос выполняется нормально! Когда выполняю следующий запрос, меняю следующие данные, появляется ошибка

Access violation at address ...

Подскажите, пожалуйста, в чем может быть дело

procedure TPrichodForm.PrichButtonClick(Sender: TObject);
 begin
if MessageBox(0,'Вы действительно хотите приходывать товар?','Внимание!', MB_YESNO or mb_iconquestion)=mrYes then
 begin 
DataModule1.PrichodQuery.SQL.Clear;
DataModule1.PrichodQuery.SQL.Add('UPDATE Prichod INNER JOIN Tovarn_pozicia ON  Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia SET Tovarn_pozicia.Ostatok=Tovarn_pozicia.Ostatok + Prichod.[Kol-vo] ');
DataModule1.PrichodQuery.SQL.Add('WHERE Prichod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia AND Tovarn_pozicia.id_tovarn_pozicia=:id');
  DataModule1.PrichodQuery.Parameters.ParamByName('id').Value:=DataModule1.Tovarn_pozTable.fieldbyname('id_tovarn_pozicia').asinteger;
DataModule1.PrichodQuery.ExecSQL;
DataModule1.PrichodQuery.Free;
DataModule1.Tovarn_pozTable.Close;
DataModule1.Tovarn_pozTable.Open;
 end;
end;

[ReportCube]

DataModule1.PrichodQuery.Free;

[ара]

Понял! Спасибо! Тема закрыта!