1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  var zahl: integer;
procedure p(var z: integer);
begin
Zahl:= 11;
z:=z+z;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
zahl:=10;
p(zahl);
canvas.TextOut(100,100, inttostr(zahl));
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var zahl: integer;
procedure p(var z: integer);
begin
//Schritt 3: Übergabe des Parameters per Referenz. d.h.: Zahl und z stehen an identischen Stellen im Speicher
//Schritt 4: Globale Variable Zahl erhöhen. Da diese der übergebene Parameter ist, ist dadurch auch z=11
Zahl:= 11;
//Schritt 5: z verdoppeln. Damit verdoppelt sich auch Zahl
z:=z+z;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Schritt 1: globale Variable Zahl auf 10 setzen
zahl:=10;
//Schritt 2: Prozedure p wird mit parameter zahl aufgerufen
p(zahl);
Schritt 6: gebe Zahl aus -> 22
canvas.TextOut(100,100, inttostr(zahl));
end;
end.