repeat-until schleife

[Grubi90]

Das mit den mehreren Rechtecken hat nicht geklappt.Die sind mit Canvas.Brush.Style := bsClear; nur schwarz gefüllt und nicht weiß!Trotzdem nochmal vielen Dank. Jetzt muss ich nur noch mein Struktogramm machen und dann bin ich so gut wie fertig!