Como suele decirse: El bosque no te deja ver el arbol, algo muy común en programación
Código SQL
[-]
UPDATE PARTES
SET PARTES.NMROORDEN = 'A20C17P212'
WHERE PARTES.NMROORDEN = 'A131C17P121' AND EJERC=2005
1 Sola consulta indicando en el where lo que quieres actualizar.
En el TQuey usado, puedes acceder despues del ExecSql a su propiedad Query1.RowsAffected.
Un saludo