Pasar un array como parámetro en Delphi

Para pasar un array como parámetro de un método o procedimiento, hay que asociarlo a un clase. Por lo tanto si queremos hacer esto:

function PasarArrayComoParametro(var a : array of double; valor : double);
var
   iPosArray : integer;
begin
    iPosArray := Length(a);
    SetLength(a, iPosArray + 1);
    a[iPosArray] := valor;
end;
Debemos hacer esto:
type
    TArrayDouble = array of TDouble;


function PasarArrayComoParametro(var a : TArrayDouble; valor : double);
var
   iPosArray : integer;
begin
    iPosArray := Length(a);
    SetLength(a, iPosArray + 1);
    a[iPosArray] := valor;
end;