Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder ungera

[ZyzzFuuark]

Oder ich mache es einfach richtig
var
x, z : Int64;
begin
if TryStrToInt64(edit1.Text, x) then
x := strtoint(edit1.Text)
else
x := 0;
z := 0;
if (x = 0) or (x < 0) then
showmessage('Die Zahl muss mindestens 1 sein!')
else
begin
while (x>1) do
begin
if (x mod 2 = 0) then
begin
x:= x div 2;
Inc(z);
end
else
begin
x := x * 3 + 1;
Inc(z);
end;
label1.Caption := 'Nach ' + inttostr(z) + ' Schritten kommt 1 heraus.';
end;
end;
end;