Массив как параметр по ссылке

[phomm]

Странно, почему никто не вспомнил про array of const ? Литература
Пример использования (моё цы) :

function AoCSample(const Params1: array of const): Integer;
var
  I : Integer;
begin
  for i := Low(Params1) to High(Params1) do
  begin
    case TVarRec(Params1[i]).VType of
      vtObject:
        if Assigned(TVarRec(Params1[i]).VObject) then
          Foo(TVarRec(Params1[i]).VObject as TSmth)
      vtAnsiString: Foo(AnsiString(Params1[i].VAnsiString));
      vtInteger: Foo(Params1[i].VInteger); // not a pointer!
      vtExtended: Foo(Params1[i].VExtended^);
      vtVariant: Foo(Params1[i].VVariant^);
// you must manually implement whatever you need, otherwise - warn yourself
    else
      ShowMessage('parameter is not supported'); 
    end;
  end;
end;

Простые типы боксятся в вариант (если нужно их менять, ибо вариант через указатель, а простые типы - нет, а если менять не надо, можно и без боксинга).
Вызов:

var
  ar: array of TVarRec;
  Vr: Variant;
...
  SetLength(ar, 2);
  vr := True; // 100500, #13,  wsNormal
  ar[0].VType := vtVariant;
  ar[0].VVariant := @Vr;
  ar[1].VType := vtObject;
  ar[1].VObject := MySmth;
  AoCSample(ar);
// тут можно юзать изменённые данные из ar

или (менять опять же только через варианты-переменные или объекты )

AoCSample([1, True {значения, неизменны в принципе}, MySmth {объект, можно менять}, 
  myIntVariable {не изменится, ибо по значению}, 
  UnAssigned {вариант-значение, но если будет переменная, то можно изменить}]);

Надо ли говорить, что это очень сильное колдунство, моск сносит на раз, особенно при отладке. Не факт, что Вы подгоните под свою задачу.