Array of ^Integer как подобраться к нужному индексу?

[WhiskasTM]

Есть DLL, она экспортит ttt:array of integer, в котором там нужные мне цифорки.
Хочу напрямую читать значения данного массива. Как достать значение по нужному индексу?

Подобный код бьёт по runtime error 216(хотя одно время прекрасно работал ровно с первыми двумя индексами, но не более)

impttt:array of ^Integer;
pttt:pointer;
....
pttt:=GetProcAddress(H, PWideChar('ttt'));
impttt:=pttt;
showmessage(inttostr(impttt[0]^));

Теперь сделал так после длительной отладки. Длл как обычно:

var
  ttt:array of Integer;

{$R *.res}
procedure __init;stdcall;
var
  i: Integer;
begin
{setlength(ttt,100);
for i := 0 to 99 do
  ttt[i]:=Random(100);}
setlength(ttt,5);
ttt[0]:=100;
ttt[1]:=55;
ttt[2]:=3535;
ttt[3]:=5050;
ttt[4]:=9999;
end;

exports
__init,ttt;

Импровизированная функция доставания цифр в приложении:

...
var
  Form1:TForm;
  H:Thandle;
  InitProcLaunch:TProcedure;
  pttt:pointer; //указатель на ttt в dll
....
function getfromdll(tttindex:integer):integer;
var
step:integer;
begin
if tttindex>tttlength then Result:=5999999;  //если индекс вне массива то результат че-нибудь невнятное
step:=tttindex*4;                            //смещение до нужного массива
asm
  mov eax, pttt       //берем указатель  на массив
  mov eax,[eax]      //читаем указатель на значение индекса 0 (ttt[0])
  add eax, step       //прибавляем смещение
  mov eax,[eax]      //читаем значение искомого индекса (ttt[tttindex])
  mov Result,eax     //результат
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to tttlength-1 do
  Memo1.Text:=Memo1.Text+inttostr(getfromdll(i));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 H:=LoadLibrary(PWideChar('test.dll'));
 InitProcLaunch:=GetProcAddress(H, PWideChar('__init'));
 InitProcLaunch;
 pttt:=GetProcAddress(H, PWideChar('ttt'));
 asm                      //находим длину массива
  mov eax, pttt        //берем указатель на массив
  mov eax,[eax]       //читаем указатель на значение индекса 0
  sub eax,4             //смещаем указатель назад на 4 байта
  mov eax,[eax]       //читаем размер массива
  mov tttlength, eax //нашли
end;
end;

А если у меня array of array of array of Integer экспортируется из dll, сидеть в деббагинге и так же мудрить. Есть ли нормальный способ спокойно подбираться к таким вот массивам из dll?

[Stilet]

ptttointer; //указатель на ttt в dll

А ты его опиши как array of array of array of Integer
Или если это указатель то

type ttt=array of array of array of Integer
var pttt:^ttt;

[WhiskasTM]

Сообщение от Stilet

А ты его опиши как array of array of array of Integer

Так выдает рантайм 216, зато второй вариант то что нужно!
Нормальным синтаксом вызывается и просто. Благодарствую!

Memo1.Text:=inttostr(pttt^[1][4]);

Офф. - Не, пока двух массивов хватит, с тремя жуткая путаница в коде с непривычки))