Hola...
Si estás leyendo desde un archivo de texto, ¿por qué no usar la clase
TStringList?
Código Delphi
[-]
begin
with TStringList.Create do
try
LoadFromFile('Archivo.txt');
ProgressBar.Max := Count;
ProgressBar.Position := 0;
for I := 0 to Pred(Count) do
begin
ProgressBar.StepIt
end
finally
Free
end
end;
Saludos...