Resolví el problema.
Como lo mencioné todo lo que tuve que hacer fue agregarle el prefijo 'xx' al nombre del campo "forzado" y cambiar las líneas:
Código Delphi
[-]
If Not (q.Fields[i] is TAutoIncField) then
por
Código Delphi
[-]
If Copy(q.Fields[i].FieldName,1,2) <> 'xx' then
Por cierto ¿ alguien sabe si los campos "forzados" tienen algn nombre específico ?
Salu2 y Gracias