delphi二维数组初始化并输出的问题

指针的类型与数组的类型不一致，数组是array [0..2] of ArrayType类型，而指针是指向ArrayType的，也就是指针只是指向数组的元素的，而不是指向数组，导致函数调用传递参数不正确。既然函数FUN是用传值方式，就没有必要转换成指针，再由指针又转换成变量（数组），这多余了。
procedure TForm1.btn1Click(Sender: TObject);
var
ArrayType1: array [0..2] of ArrayType;
//Array_Pointer: pArray;
J: Integer;
begin
for I := 0 to High(ArrayType1) do
for J := 0 to High(ArrayType) do
ArrayType1[I, J] := I * J;
//Array_Pointer := @ArrayType1;
fun(ArrayType1);
end;
如果要用传址方式，array [0..2] of ArrayType必须在函数FUN之前定义成类型，再改形参和实参。