[killmore]

Код:

var i2,cnt2:integer;
begin
begin
  ADOQuery5.SQL.Add('UPDATE nalich SET nalichie=nalichie-:nal1 WHERE ID_KNIGI=:ikn');
  ADOQuery5.ParamCheck:=true;

  ADOQuery2.Open;
  cnt2:=ADOQuery2.RecordCount-1;

  ADOQuery1.First;
  adotable1.Open;
      for i2 := 0 to cnt2 do
      begin
      ADOtable2.Active:=true;
      ADOtable2.open;
      adoquery5.Parameters.ParamByName('nal1').Value:=adoquery2.FieldByName('koltov').Value;
      adoquery5.Parameters.ParamByName('ikn').Value:=adoquery2.FieldByName('ID_KNIGI').Value;
      ADOQuery5.ExecSQL;
      ADOQuery2.Next;
  end;
ADOQuery5.SQL.Clear;
 ADOtable2.close;
 adoquery2.close;
 end;
end;

типо заработало