Hallo,
ich habe mir den Quelltext mal angesehen. Was für ein Aufwand!
Es reicht:
Delphi-Quellcode:
procedure Collatz(z:int64);
begin
listbox1.items.add('Folge für '+inttostr(z));
repeat
if odd(z) then z:=3*z+1
else z:=z div 2;
listbox1.items.add(inttostr(z));
until z=1;
end;
Mehr brauchst Du nicht. Du kannst ja mal als Startzahlen 1674652263 (1008 Rechenschritte bis 1), oder 1410123943 (erreicht zwischenzeitlich ein Maximum von 7125885122794452160) testen.
Beste Grüße
Mathematiker