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:
37:
38:
39:

const
  init = 'X';
  genX = 'XFYFX+F+YFXFY-F-XFYFX';
  genY = 'YFXFY-F-XFYFX+F+YFXFY';
var
  dist, oldx, oldy : Real;
  dep : Byte;
  dirx, diry : ShortInt;
procedure Peano(com : string;Level : Integer);
var
  i : Integer;
  a : ShortInt;
  x, y : Real;
begin
  for i:=1 to Length(com) do
    case com[i] of
      'X' : if Level > 0 then Peano(genX,Level-1);
      'Y' : if Level > 0 then Peano(genY,Level-1);
      'F' : begin
              x:=oldx+dist*dirx;
              y:=oldy+dist*diry;
              Image1.Canvas.LineTo(Round(x),Round(y));
              oldx:=x;
              oldy:=y;
            end;
      '+' : begin a:=dirx;dirx:=diry;diry:=-a;end;
      '-' : begin a:=diry;diry:=dirx;dirx:=-a;end;
    end;
end;
begin
  dirx:=1;
  diry:=0;
  dep:=4;//Iterationstiefe!
  oldx:=0;
  oldy:=400;
  dist:=400/(exp(dep*ln(3))-1);
  Image1.Canvas.MoveTo(0,400);
  Peano(init,dep);
end;