Como mostrar um processamento de importação de arquito TXT?

tenho dentro de um sistema uma rotina que importa dados de um arquivo TXT para dentro de um arquivo DB, gostaria de mostrar dentro de um Label a linha que esta sendo importada, eu ja coloquei o label e dentro da rotina do while eu passei para este label o nro da linha ex.: label1.caption := iContador, mas só mostra no final do processamento e não linha por linha.

aerá que alguem pode me ajudar?


Obrigado