Also bei dir freezed nichts und es arbeitet auch nichts auf hochtrieben:
Folgende Gleichung (mathematisch gesehen jetzt) wird nie erfüllt sein:
n = n / x * y
(delphi):
if (Gewicht = Gewicht div 100 * 1) then
Dh dein Progressbar wird sich nur einmal - und zwar genau dann, wenn x und y identisch sind - aktualisieren
( .. div 100 * 100 )
MfG