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:
32:
33:
34:
35:
36:

{Zeichnet ein Haus
x: untere linke Ecke
y: untere linke Ecke
l: Breite des Hauses, an der sich auch die anderen Größen orientieren}
procedure HausZeichnen(Can: TCanvas; x, y, l: Word);
var
  a: Word;
begin
  a := l div 5; // 1/5 von l, da Fenster und Türen 1/5 der Häuserbreite sind

  with Can do
  begin
    Brush.Style := bsClear; // Macht Rechtecke durchsichtig

    Rectangle(x, y - l, x + l, y); // Haus

    MoveTo(x, y - l); // Dach
    LineTo(x + (l div 2), y - l - (l div 2));
    LineTo(x + l, y - l);

    Rectangle(x + a, y, x + (2 * a), y - (2 * a)); // Tür
    Rectangle(x + a, y - (3 * a), x + (2 * a), y - (4 * a)); // Fenster ol
    Rectangle(x + (3 * a), y - (3 * a), x + (4 * a), y - (4 * a)); // Fenster or
    Rectangle(x + (3 * a), y - a, x + (4 * a), y - (2 * a)); // ... Fenster ou
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HausZeichnen(Canvas, 200, 500, 100);
  HausZeichnen(Canvas, 350, 500, 100);
  HausZeichnen(Canvas, 500, 500, 100);

  HausZeichnen(Canvas, 260, 340, 80);
  HausZeichnen(Canvas, 315, 210, 60);
end;