[rfernandez]

i si pruebas

query1.sql.Add('update alba set alpres='+intostr(altapressupost+1)+' where alalb='+IntToStr(ValorNumerico));
query1.execsql;