[delphi.com.ar]

Puedes hacer un insert de un select:

Código SQL [-]
INSERT INTO TABLA (DESCRIPCION, IMPORTE)
SELECT DESCRIPCION, IMPORTE
WHERE ID = :IdRegAnt