Problemas al intentar actualizar registro

[ilichhernandez]

Estimados[as], llevo varias horas tratando de resolver esto, y no logro resolver una actualizacion de registro, lo que intento hacer es sumar un valor x a un registro, lo que significa que debo recuperar el valor actual antes de actualizar para poder realizar la suma correspondiente, agradeceria si alguien le echara un vistazo al codigo y pudiera comentarme en que me estoy equivocando, en principio se que tengo problemas en la redaccion de la cadena sql.txt y quizas en el parametro......Saludos y gracias desde ya ....


Código Delphi [-]dm1.IBQuery1.SQL.clear;
dm1.IBQuery1.sql.Text := 'Select cod_producto,stk_actualk,stk_actuale from productos';
dm1.IBQuery1.Open;
actual := dm1.IBQuery1.Fields[1].Value;
dm1.IBQuery1.SQL.Clear;
dm1.IBQuery1.sql.Text := 'Update from productos set stk_actualk = :vara where cod_producto = :varb';
dm1.IBQuery1.ParamByName('vara').AsInteger := actual;
dm1.IBQuery1.ParamByName('varb').AsInteger := strtoint(dbedit2.text);
dm1.IBQuery1.ExecSQL;