Perdido con progessbar

[pmtzg]

pues mira soy nuevo usando delphi
y no veo por donde me de el porcentaje ejemplo:

1%...15%...25% etc hasta el 100%

y lo q estoy haciendo es con el label1 que me vaya diciendo en porcentaje
mientras el progressbar va corriendo la barra

y no no me funciona asi

Código Delphi [-]
 
 
 
label.caption:= InttoStr((pbn1.position * 100) / pbn1.max );