Tipos de Variáveis em Dll criada no Delphi

Bom Dia pessoal, tudo bom? Sou novo em programação e estou tentando criar uma dll no delphi.

Essa dll vai ser usada em uma aplicação do delphi também.

Queria saber se é possível utilizar vetores e matrizes e como fazer isso pois eu tentei declarar como um array of array of (um tipo), mas dá erro (essas matrizes seriam parâmetros da função). Colocando só como array of (um tipo) funciona, mas ao tentar acessar a função na dll dá um access violation. Eu já havia criado essa função dentro da minha aplicação e estava funcionando, mas na dll da esse erro. Eu tentei usar um ponteiro também, mas continua dando o erro. Por favor me ajudem.

Segue o código:

library NDC_Generator;

uses
SysUtils,
Dialogs,

 Classes;

 Type
 Matriz = Array of array of string;
 P1 = ^Matriz;

{$R *.res}

procedure MensagemConfirmacao(AMensagem: WideString); stdcall;
begin

 MessageDlg(AMensagem, mtInformation, [mbOk], 0);
end;

function gerarcombinacoes(Mat: P1; Xb, Total, np,
 NumCri: integer; mp, bud: Double; Pointer: P1): string; stdcall;

 i, j, k, T, a, p: integer;
 aux1: string;
 R0: Double;
 vetop, vmax: array of integer;
 matrizaj: array of array of integer;
 vetmax, vetmin: array of Double;
 vet_aux, Vetname: array of string;
 matrizaux1 : array of array of Double;
 matriz_result: array of array of String;

begin

 setlength(vetop, np);
 setlength(vmax, np);
 setlength(matrizaj, T, np);
 setlength(vetmax, NumCri);
 setlength(vetmin, NumCri);
 setlength(vet_aux, T);

 p := 0;

 for i := 0 to np - 1 do
 begin
 vmax[np - i - 1] := Xb - i;
 end;

 for i := 0 to np - 1 do
 vetop := i + 1;
 vetop[np - 1] := np - 1;

 for i := 0 to NumCri - 1 do
 begin
 vetmin := 100000;
 vetmax := -1;
 end;
 i := 0;
 T := 0;

 while (T < Total) do // Gerar as combinações com np elementos
 begin
 if T <> 1 then
 i := np;

 while (i > 0) do // Verifica se alguma das posições já atingiu seu máximo
 begin
 if (i - 1) <> 0 then // Verifica se não se trata da primeira posição que atingiu seu máximo
 begin
 if (vetop[i - 1] = vmax[i - 1]) and (vetop[i - 2] < vmax[i - 2]) then
 begin
 vetop[i - 2] := vetop[i - 2] + 1;
 vetop[i - 1] := vetop[i - 2]; ;
 if (i < np) then
 for j := i to np - 1 do
 vetop[j - 1] := vetop[j - 2] + 1;
 vetop[np - 1] := vetop[np - 2];
 break;
 end; // vetop
 end; // 0
 i := i - 1;
 end; // while i>0
 vetop[np - 1] := vetop[np - 1] + 1;

 R0 := 0;
 for k := 0 to np - 1 do
 R0 := R0 + StrToFloat(
 Mat^[vetop[k] - 1, NumCri + 1]);

 if R0 <= bud then
 begin
 p := p + 1;
 setlength(matrizaux1, p, NumCri + 1);
 setlength(Vetname, p);
 for a := 0 to NumCri - 1 do
 begin
 for k := 0 to np - 1 do
 matrizaux1[p - 1, a] := matrizaux1[p - 1, a] + StrToFloat(
 Mat^[vetop[k] - 1, a + 1] );

 if (matrizaux1[p - 1, a] > vetmax[a]) then
 vetmax[a] := matrizaux1[p - 1, a];
 if (matrizaux1[p - 1, a] < vetmin[a]) then
 vetmin[a] := matrizaux1[p - 1, a];
 end;
 matrizaux1[p - 1, NumCri] := R0;

 a:= 0;

 for k := 0 to np - 1 do
 Vetname[p - 1] := Vetname[p - 1] +
 Mat^[ vetop[k] - 1,a] + ' ';
 end; // R0 <= Bud

 T := T + 1;
 end; // While

 a := 0;
 k := 0;
 for i := 0 to p - 1 do
 begin
 if mp <> 0 then
 for j := 0 to NumCri - 1 do
 begin
 if vetmax[j] <> vetmin[j] then
 begin
 R0 := (matrizaux1[i, j] - vetmin[j]) / (vetmax[j] - vetmin[j]);
 end
 else
 R0 := 1;
 if R0 >= mp then
 begin
 a := a + 1;
 end
 else
 break;
 end
 else
 a := NumCri;
 if a = NumCri then
 begin
 k := k + 1;
 for j := 0 to NumCri do
 begin
 setlength(matriz_result, k, NumCri + 2);
 matriz_result[k - 1, j+1] := floattostr( matrizaux1[i, j]);
 end;
 matriz_result[k - 1, 0]:= Vetname;
 end;
 a := 0;
 end;
 for I := 0 to k - 1 do
 for j := 0 to numcri + 1 do
 Pointer^[i,j]:= matriz_result[i,j];

 MensagemConfirmacao('Foram geradas' + inttostr(k) + 'combinações!');
 Result := '0';
end;

exports
gerarcombinacoes;

end.