Arguments d'une procédure/fonction restreints

Avec où sans pointeur ça fonctionne

type
  //pObject      = ^TObject;
  TObjectPot   = arrayof TObject;
  TOPMatrix    = arrayof TObjectPot;

function Poter(const A : arrayof TObject) : TObjectPot;
var i : integer;
begin
  setlength(result,length(A));
  for i := 0 to high(A) do
      result[i] := A[i];
end;

function Matrixer(const A : arrayof TObjectPot) : TOPMatrix;
var i : integer;
begin
  setlength(result,length(A));
  for i := 0 to high(A) do
      result[i] := A[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

     Matrixer([ Poter([SpeedButton1,Edit1]),
                Poter([SpeedButton2,SpeedButton5]),
                Poter([SpeedButton8,SpeedButton7,SpeedButton9])
     ])
  ;
end;