64 Bit (8 Byte) nach 32 Bit (4 Byte) umkalsieren:
Delphi-Quellcode:
var
X: UInt64;
ProgressBar1.Max := (X / $FFFFFFFFFFFFFFFF) * $FFFFFFFF;
Das einzige Problem - ein Integer ist signed (vorzeichenbehaftet) und somit halbiert sich der (positive) Wertebereich (also max $7FFFFFFF).