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:

procedure Mandelbrot;
var
  counterv, counterh, counteri: integer;
  Pointv, Pointh: Double;
  Stepv, Steph: Double;
  Sizev, Sizeh: integer;
  Zreal, Zimag, tmp: Double;
  Density: integer;
  Bild: array[0..767,0..1023] of Double;
begin
Sizev := 768; Sizeh := 1024;
Steph := 3 / Sizeh; Stepv := 2 / Sizev;
Pointv := 1; Density := 2000;
counterv := 0;

while counterv < Sizev do begin
    counterh := 0; Pointh := -2;
    while counterh < Sizeh do begin
         Zreal := 0; Zimag := 0; counteri := 0;
         while (counteri < Density) and
               (sqr(Zreal) + sqr(Zimag) < 4) do begin
               tmp := sqr(Zreal) - sqr(Zimag) + Pointh;
               Zimag := Zreal*Zimag*2 + Pointv;
               Zreal := tmp;
               counteri := counteri+1;
         end;
         Bild[counterv, counterh] := counteri / Density; //Die entfernte Zeile
         Pointh := Pointh + Steph;
         counterh := counterh+1;
    end;
    Pointv := Pointv - Stepv;
    Counterv := counterv+1;
end;
end;					

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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

const
 Sizev = 768;
 Sizeh = 1024;

var
  Bild: array[0..SizeV-1,0..SizeH-1] of Double;
{$R *.dfm}
function Mandelbrot:int64;
var
  counterv, counterh, counteri: integer;
  Pointv, Pointh: Double;
  Stepv, Steph: Double;
  Zreal, Zimag, tmp: Double;
  Density: integer;

begin
result :=0;
Steph := 3 / Sizeh;
Stepv := 2 / Sizev;
Pointv := 1;
Density := 2000;
counterv := 0;

while counterv < Sizev do
  begin
  counterh := 0;
  Pointh := -2;
  while counterh < Sizeh do
    begin
    Zreal := 0;
    Zimag := 0;
    counteri := 0;
    while (counteri < Density) and(sqr(Zreal) + sqr(Zimag) < 4) do
      begin
      tmp := sqr(Zreal) - sqr(Zimag) + Pointh;
      Zimag := Zreal*Zimag*2 + Pointv;
      Zreal := tmp;
      inc(Counteri);
      inc(result)
      end;
    Bild[counterv, counterh] := counteri / Density; //Die entfernte Zeile
    Pointh := Pointh + Steph;
    counterh := counterh+1;
    end;
  Pointv := Pointv - Stepv;
  Counterv := counterv+1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t1,t0,f,Erg : int64;
begin
  queryperformancefrequency(f);
  queryperformancecounter(t0);
  Erg :=Mandelbrot;
  queryperformancecounter(t1);
  Button1.Caption := Format('Zeit %10.5f %20d',[(t1-t0)/f,Erg]);
end;