[delphi.com.ar]

INSERT INTO TABLA T1
(CAMPO1, CAMPO2, CAMPO3)
SELECT CAMPO1, CAMPO2, CAMPO3
FROM TABLA T2
WHERE T2.CAMPO1='XXXX'

Esta sintaxis varía en los diferentes motores

UPDATE TABLA T1
SET (CAMPO1, CAMPO2, CAMPO3) = (SELECT CAMPO1, CAMPO2, CAMPO3
              FROM TABLA T2
              WHERE T2.CAMPO1=T1.CAMPO1)
WHERE T1.CAMPO1='XXXX'

Saludos!