Analizando nuevamente la linea:
QueryUpdate.SQL.Text:='UPDATE productos SET stock= '+QuotedStr(strtoint(DBedit3.Text)+strtoint(txtagregar.Text)+' WHERE codigo="'+
QuotedStr(txtcodigo.Text)+'"';
Me marca un error en:
QuotedStr(txtcodigo.Text)+'"'
Incompatible types: 'String' and 'Integer'
Ya he checado vonviertiendolo a otro tipo, y nada
Sigo analizando