Пример массива констант (Array of Const) 2

procedure AddStuff(const A: array of const);
var
  i: Integer;
begin
  for i := Low(A) to High(A) do
    with A[i] do
      case VType of
        vtExtended:
          begin
            { добавляем натуральное число, все real-форматы
            автоматически приводятся к extended }
          end;
        vtInteger:
          begin
            { добавляем целое число, все integer-форматы
            автоматически приводятся к LongInt }
          end;
        vtObject:
          begin
            if VObject is DArray then
              with DArray(VObject) do
              begin
                { добавляем массив double-типа }
              end
            else if VObject is IArray then
              with IArray(VObject) do
              begin
                { добавляем массив integer-типа }
              end;
          end;
      end; { Case }
end; { AddStuff }