Mean funktionen

Mean i D er defineret som:
function Mean(const Data: array of Double): Extended;

Er der nogen måde man kan bruge, for i stedet at anvende en array record som:
dMean := Mean(Punkt.Z), hvor Punkt er et array af typen:

type
  TPOINT3 = packed record
    X,Y,Z : Double;
  end;

Punkt: array of TPOINT3;