[[seoane]]

Para numeros enteros debes usar la division entera.

Código Delphi [-]
Progressbar1.Max:=timer1.Interval div 1000;