Delphi-Quellcode:
procedure TfMasseEgale.Stueckgewinn;
begin
if i < strtoint(edAnzahl.Text) then
begin
while ((aManque - aPasse) < 5) and ((aPasse - aManque) < 5) do
begin
Wurf('Keine Wette');
end;
if aManque - aPasse = 5
then Passespiel
else Manquespiel;
Stueckgewinn;
end;
lbGewinn.Caption := floattostr(aGewinn) + ' Gewinn, Rückhalt: ' + floattostr(-aMinus);
edAnzahl.Text := inttostr(i);
end;
i wird immer wieder um 1 erhöht und wird irgendwann wohl die Zahl, die im Editfeld eingegeben wurde, erreichen, danach passiert nichts mehr, denn "if i < strtoint(edAnzahl.Text)" wird nicht mehr erfüllt und somit kommt er nicht mehr in die while-Schleife.