Передать многомерный массив в функцию

type
   AF = array[0..1, 0..1, 0..2] of PAnsiChar;
 
const ArrayFields : AF = (
(('Прямоугольник', 'Треугольник', 'Круг'),
('Круг', 'Прямоугольник', 'Треугольник')),
(('Яблоко', 'Апельсин', 'Груша'),
('Общее количество строк (по умолчанию 5):', 'NIL', 'BtnVariable'))
);

Foo(ArrayFields);
 
Сама функция:
FUNCTION Foo(ArrayFields : AF) : BOOLEAN;
BEGIN
...
END;

type
  AF1 = array[0..1, 0..2] of PAnsiChar;
  AF = array[0..1] of AF1;
 
const ArrayFields : AF = (
(('Прямоугольник', 'Треугольник', 'Круг'),
('Круг', 'Прямоугольник', 'Треугольник')),
(('Яблоко', 'Апельсин', 'Груша'),
('Общее количество строк (по умолчанию 5):', 'NIL', 'BtnVariable'))
);
 
FUNCTION Foo(ArrayFields : AF1) : BOOLEAN;
BEGIN
//...
END;
 
procedure proc1;
begin
  Foo(ArrayFields[1]);
end;

type
   AF1 = array[0..1, 0..1, 0..2] of PAnsiChar;
   AF = array[0..1, 0..1] of AF1;
 
const ArrayFields : AF = (
(('Прямоугольник', 'Треугольник', 'Круг'), ('Круг', 'Прямоугольник', 'Треугольник')),
(('Яблоко', 'Апельсин', 'Груша'), ('Общее количество строк (по умолчанию 5):', 'NIL', 'BtnVariable'))
);

FUNCTION Foo(ArrayFields : AF1) : BOOLEAN;
BEGIN
...
END;

procedure proc1;
begin
  Foo(ArrayFields[1]);
end;

type
  TGroup = array[0..1, 0..2] of PAnsiChar;
  AF = array[0..1] of TGroup;
 
const
  ArrayFields: AF = (
    (('Прямоугольник', 'Треугольник', 'Круг'),
     ('Круг', 'Прямоугольник', 'Треугольник')),
    (('Яблоко', 'Апельсин', 'Груша'),
     ('Общее количество строк (по умолчанию 5):', 'NIL', 'BtnVariable'))
  );

function Foo(Group: TGroup): Boolean;
begin
 // ...
end;

Foo(ArrayFields[1]); // Передаём вторую группу (индекс 1)