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:

type
 SquarePosition = (spRoot, spUpperLeft, spUpperRight, spLowerLeft, spLowerRight);

procedure RecursiveRect(Canvas: TCanvas; CX, CY, Size: Integer; Position: SquarePosition);
// Diese Prozedur zeichnet ein Quadrat der Kantenlänge "Size" mit Zentrum "CX", "CY".
// Ausserdem werden auch die Kinderquadrate gezeichnet (per Selbstaufruf).
begin
 with Canvas do
 begin
  if ... then // Kinderquadrate nur zeichnen, wenn sie nicht schon zu klein sind
  begin // Kinderquadrate zeichnen
   if Position <> spLowerRight then
    RecursiveRect(Canvas, ...); // Halb so grosses Quadrat am linken oberen Eckpunnkt zeichnen
   if Position <> spLowerLeft then
    RecursiveRect(Canvas, ...);
   if Position <> spUpperRight then
    RecursiveRect(Canvas, ...);
   if Position <> spUpperLeft then
    RecursiveRect(Canvas, ...);
  end;
  Rectangle(CX-Size div 2,CY-Size div 2,CX+Size div 2,CY+Size div 2); // sich selbst zeichnen
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with PaintBox1 do
  RecursiveRect(Canvas, Width div 2, Height div 2, Width div 2, spRoot);
end;