Schalte mal die Bereichsprüfung aus also:
Delphi-Quellcode:
for I := Count - 1 downto 0 do
begin
{$R-}
Temp := (UInt64(Result[I]) shl UInt64(31)) or (Temp shl UInt64(32)); // *** hier
Result[I] := Temp shr UInt64(32);
S := IntToStr(Result[I]) + S;
end;
Dein Problem ist aber denke ich etwas anderes......
Die Fehlermeldung bekommst Du so auf jeden Fall weg