Repeat Schleife

[Zeb22]

Wenn ich Einmal den Button betätige dürfte die Showmessage Box nicht erscheinen. Aber Sie tut es .

Frage: WARUM???????????????

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
 zahl3 := 3;
  repeat
   begin
     zahl3 := zahl3 +1;

   end
    until zahl3 = 5;
     showmessage('Tobi ist ein Zombi');
   end;
end.