Transforma el valor de progreso a porcentaje y se acabo el tema...
Por ejem:
Código Delphi
[-]
ProgressBar.Max:=100;
For Progreso_Leido:=1 To Largo_Archivo do
progressBar.Position:= Trunc((Progreso_Leido/Largo_Archivo)*100);
O algo así....
Saludos cordiales