Запрос на Изменить нескольких записей

[ара]

Доброго времени суток! Есть такой запрос:

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.Tovarn_pozTable.Close;
  DataModule1.Tovarn_pozTable.Open;
 end;

end;

Запрос изменяет только Одну запись в таблице. Подскажите, пожалуйста, как сделать так, чтобы была возможность добавить несколько записей, удовлетворяющих условие отбора.

[ара]

Можно ли это реализовать через цикл, или надо вводит дополнительное условие в запрос?