就一个button事件
procedure TForm1.btn7Click(Sender: TObject);
 Type
   TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
   Pint = ^TMyArr;
 var
   PArr: Pint; {动态数组指针变量}
   i,j,k,ic,jc,kc: Integer;
 begin
   Memo1.Lines.Clear;
   {用作维数的变量}
   ic := 2;
   jc := 3;
   kc := 4;
   {分配内存; 按说动态数组还需要 8 个管理字节, 我不知道 Delphi 是怎么协调的}
   GetMem(PArr, ic * jc * kc * SizeOf(Integer));
   {设置数组}
   SetLength(PArr^, ic,jc,kc);
   {赋值}
   for i := 0 to ic - 1 do
     for j := 0 to jc - 1 do
       for k := 0 to kc - 1 do
         PArr^[i][j][k] := Random(100);
   {取值}
   Memo1.Clear;
   for i := 0 to ic - 1 do
     for j := 0 to jc - 1 do
       for k := 0 to kc - 1 do
         Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, PArr^[i][j][k]]));
         //Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, TMyArr(PArr)[i][j][k]]));
         {按理说这种访问方法也对，可是这中方法在编译的时候能通的过去，在运行的就报错了}
   {自己分配的内存要负责释放}
   FreeMem(PArr);
 end;