type
TArrayString=array of array of string;
procedure TForm3.Button2Click(Sender: TObject);
var
AValues:TArrayString;
i,j:Integer;
begin
SetLength(AValues,2,3);
for i := Low(AValues) to High(AValues) do
for j := Low(AValues[i]) to High(AValues[i]) do
AValues[i,j]:=IntToStr(i*j);
FncString(AValues);
end;
procedure TForm3.FncString(AValues:TArrayString);
var i,j:Integer;
begin
for i := Low(AValues) to High(AValues) do
for j := Low(AValues[i]) to High(AValues[i]) do
Memo1.Lines.Add(Format('AValue(%d,%d)=%s',[i,j,AValues[i,j]]));
end;