1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

// Rechteck Rekursiv
procedure TForm1.recrek;
begin
     if oben < 250 then
        begin
        PaintBox1.Canvas.Rectangle (oben,oben,unten,unten);
        recrek(oben+2,unten-2);
        end;

// Rechteck Rekursiv
procedure TForm1.Button1Click(Sender: TObject);
begin
     PaintBox1.Refresh;
     recrek(0,500);
end;

// Rechteck Iterativ
procedure TForm1.Button2Click(Sender: TObject);
var
   i : integer;
   oben, unten : integer;
begin
oben := 10;
unten := 390;
     for i := 1 to 245 do
         begin
         PaintBox1.Canvas.Rectangle (oben,oben,unten,unten);
         oben := oben +2;
         unten := unten -2;
         end;
end;