macht nix ... die ProgressBar kennt eh nur Integer
Man kann das höherwertige in diesem Fall also irgnorieren
ProgressBar1.Max := Msg.WParam;
oder man Skaliert die Werte für .Max und .Position so, daß sie in einen Integer reinpassen
Ein Therapeut entspricht 1024 Gigapeut.