[[escafandra]]

Yo haría una simple regla de tres para controlar el TProgressBar, eligiendo un valor Max sencillo:

Código Delphi [-]
var
 VMAX, Val: Variant;  //Siendo VMAX el valor Maximo y Val los intermedios
begin
 VMAX:= StrToCurr('7333678456');
 ProgressBar1.Max:= 100;
 ProgressBar1.Min:= 0;
 ProgressBar1.Position:= Val*100/VMAX;

Saludos.