Прибавление целого числа к значению поля в бд

StrtoInt(Edit.Text)

ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='UPDATE [Таблица] SET [Поле]=[Поле]+:param1 WHERE [Уникальное поле]=:param2';
ADOQuery2.Parameters.Refresh;
ADOQuery2.Parameters[0].Value:=StrToIntDef(Edit1.Text,0); //Лучше использовать эту функцию на случай если в Edit1 содержится не число
ADOQuery2.Parameters[1].Value:=ADOQuery1.FieldByName('Id').AsInteger; //Предположил, что "уникальное поле" целочисленное
ADOQuery2.Open;

procedure TFormCashAgr.ButtonCashAcceptClick(Sender: TObject);
var
AgrBalanceCash:Integer;
begin
FormMainProgram.ADOQuerySearchAgr.SQL.Clear;
FormMainProgram.ADOQuerySearchAgr.SQL.Text :=
    'Select AgrID, AgrBalance from Agreements where AgrID='+FormMainProgram.EditSearchAgr.Text+'';
FormMainProgram.ADOQuerySearchAgr.Open;
AgrBalanceCash:=StrToInt(EditMoney.Text);
FormMainProgram.ADOQueryCashAdd.SQL.Clear;
FormMainProgram.ADOQueryCashAdd.SQL.Text :=
 
'UPDATE Agreements SET AgrBalance=AgrBalance +:param1 WHERE AgrId==:param2';
FormMainProgram.ADOQueryCashAdd.Parameters.Refresh;
FormMainProgram.ADOQueryCashAdd.Parameters[0].Value:=StrToInt(EditMoney.Text);
FormMainProgram.ADOQueryCashAdd.Parameters[1].Value:=FormMainProgram.ADOQuerySearchAgr.FieldByName('AgrID').AsInteger;
FormMainProgram.ADOQueryCashAdd.Open;
 
end;