Hola
Veamos una forma de hacerlo:
No me hagas mucho caso, es solo una idea.
Código Delphi
[-]
AdoQueryCalcula_Imorte.Sql.Text:= 'Select (producto.precio*:cant) As Canti From producto Where producto.nombreproducto= 
roducto';
AdoQueryCalcula_Imorte.Parameters[0].Value:= TuDato1
AdoQueryCalcula_Imorte.Parameters[1].Value:= TuDato2
AdoQueryCalcula_Imorte.Open;
AdoQueryUpdate.Sql.Text:= ' UPDATE tiendaproducto SET tiendaproducto.cantidad = :cant1, tiendaproducto.importe = 
ato';
AdoQueryUpdate.Parameters[0].Value:= AdoQueryCalcula_Imorte.Filebyname('Canti').Value;
AdoQueryUpdate.Parameters[1].Value:= AdoQueryCalcula_Imorte.Filebyname('nombreproducto').Value;
AdoQueryUpdate.ExecSQL
Saludos