unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
const
  MaxSize = 5;    type
  TDimXYZ = Array[1..MaxSize] of Array[1..MaxSize] of integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}
function TestDim(DimXYZ:TDimXYZ):TDimXYZ;
var
  i,j :integer;
begin
  for i :=1 to MaxSize do
    for j :=1 to MaxSize do
      TestDim[i,j] := DimXYZ[i,j]  - 1;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  i,j :integer;
  DimXYZ : TDimXYZ;
  sStr:string;
begin
  for i :=1 to MaxSize do
    for j :=1 to MaxSize do
      DimXYZ[i,j] := i*j;
  DimXYZ :=  TestDim(DimXYZ);
  for i :=1 to MaxSize do begin
    sStr :='';
    for j :=1 to MaxSize do
      sStr := sStr   '    '   IntToStr(DimXYZ[i,j]);
    Memo1.Lines.Add(sStr);
  end;    end;    end.