[Страдалецъ]

а есть схожая программа с таким же кодом,

Да пожалуйста, вот со схожим кодом:

Код:

ADOQuery1.SQL.Text := 'Update [Товары] set [КОЛ-ВО] = :Kolvo where [КОЛ-ВО]=100';
ADOQuery1.Parameters.ParamByName('Kolvo').Value := StrToIntDef(Edit1.Text, 0);
ADOQuery1.ExecSQL;