[whatson]

Gracias por la ayuda

El problema lo tenia en la linea

Código Delphi [-]
until (xVal = '0');

Esto provocaba el proceso seguia leyendo lineas vacias de excel y tratando de escribir registros sin datos. (No se detenia).

La linea correcta fue

Código Delphi [-]
until (xVal = '');