Jak wywołać funkcję bazodanową z parametrem typu array

CREATE OR REPLACE FUNCTION test.farrtest (
  aid integer,
  aarrtest integer []
)
RETURNS void AS
$body$
declare
  vEnums integer;
begin
    foreach vEnums in ARRAY aarrtest loop
  		insert into test.ttest(id) values (vEnums);
    end loop;  
END;
$body$
LANGUAGE 'plpgsql'
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
PARALLEL UNSAFE
COST 100;

ADS.Params[0].DataType := vrecord.id.DataType;
ADS.Params[0].Value :=  vrecord.id.value;

ADS.Params[1].DataType := ?;
for i := 0 to sl.count - 1 do
  ADS.Params[1].Values[i].Value := i;

sl.Delimiter := ',';
ADS.Params[1].Value := '{' + sl.DelimitedText + '}';

function IntArrayToParam(arr: array of Integer): String;
var
  i: Integer;
begin
  Result := '';
  for i := Low(arr) to High(arr) do
    if i < High(arr) then
      Result := Result + IntToStr(arr[i]) + ','
    else
      Result := Result + IntToStr(arr[i]);
  Result := '{' + Result + '}';
end;           

...
ADS.Params[1].Value := IntArrayToParam(tablica);

('[FireDAC][Stan]-19. Data type conversion is not supported', 0, nil, nil, False)

    ADS.Params[0].DataType := ftInteger;
    ADS.Params[0].Value := 1;
    ADS.Params[1].DataType := ftArray;
    ADS.Params[1].Value := '{1,2,3}';
    ADS.Open;

    ADS.Params[0].DataType := ftInteger;
    ADS.Params[0].Value := 1;
    ADS.Params[1].DataType := ftUnknown;
    ADS.Params[1].Value := '{1,2,3}';
    ADS.Open;

('[FireDAC][Phys][PG][libpq] BŁĄD: funkcja test.farrtest(integer, character varying) nie istnieje.'#$D#$A'Brak funkcji pasującej do podanej nazwy i typów argumentów. Być może należy dodać jawne rzutowanie typów.', 0, nil, nil, False)

ADS.SQL.Test := 'select farrtest (:id, &arr)';
ADS.Params[0].AsInteger := 1;
ADS.Macros[0].AsRaw := '{1,2,3}';
ADS.Open;

ADS.Params[0].AsInteger := 1;
ADS.Params[1].ArrayType := atTable;
ADS.Params[1].ArraySize := 3;
ADS.Params[1].AsIntegers[0] := 1;
ADS.Params[1].AsIntegers[1] := 2;
ADS.Params[1].AsIntegers[2] := 3;