1:
2:
3:
4:
5:
6:

type beispieltyp= record
 grösse: Integer;
 länge: Integer;
end;

var beispiel: beispieltyp;                    

1:
2:
3:
4:
5:
6:

function irgendwas(var t: beispieltyp);
begin
...
inc(t.grösse)
...
end;                    

1:
2:
3:
4:
5:
6:

function irgendwas(var t:beispieltyp, schlüssel: schlüsseltyp)
begin
...
inc(t.schlüssel);
...
end;                    

1:
2:
3:

irgendwas(beispiel, grösse);
...
irgendwas(beispiel, länge);                    

1:
2:
3:
4:
5:
6:
7:

type
  Tbeispiel = TClass
    Groesse: Integer;
    Laenge: Integer;
    procedure IncGroesse(value:Integer);
    procedure IncLaenge(value:Integer);
  end;                    

1:
2:
3:
4:
5:

procedure Tbeispiel.IncGroesse;
begin inc(Groesse,value);end;

procedure Tbeispiel.IncLaenge;
begin inc(Laenge,value);end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  Beispiel: Tbeispiel;
begin
  Beispiel:= Tbeispiel.Create;
  Beispiel.IncLaenge(1); 
  Beispiel.IncGroesse(-1);
  ...
  Beispiel.Free;
end;