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
mientras procesas tu archivo
Código Delphi
[-]
while not eof do
begin
..
..
..
progressbar.position := progressbar.position + 1;
end