[[oscarac]]

porque no muestras un progressbar mientras vas recorriendo el archivo con las 1000 lineas

algo mas o menos asi..

Código Delphi [-]
 
progressbar.min := 1;
progressbar.max := 1000 // podria ser el total de lineas del archivo

mientras procesas tu archivo

Código Delphi [-]
 
while not eof do
begin
..
..
..
progressbar.position := progressbar.position + 1;
end