Versuche werden nicht gezählt

[Jumpy]

Und ist noch eleganter, wenn man Bedingung und Schleife zusammenpackt (Kopfgesteuerte Schleife):

Delphi-Quellcode:

procedure TForm10.Button3Click(Sender: TObject);
begin
...
while (zahl1 = 0) and (zahl2 = 0) do
begin
...
end;
...