Pon un simple contador y muéstralo para saber en qué línea ocurre, algo temporal, como esto:
Código:
iContador:=0;
inicio bucle
lee línea;
inc(iContador);
label1.caption := intTostr(icontador);
application.processmessages;
q.close;
q.param...
q.param...
q.exec
fin de bucle