procedure TForm1.Button1Click(Sender: TObject);
const
ArrayTest: array[1..2, 1..2] of integer =
((1, 2), (3, 4));
var
i, j: integer;
begin
Memo1.Clear;
for i := 1 to 2 do
for j := 1 to 2 do
begin
ArrayTest[i, j] := ArrayTest[i, j] + 1;
Memo1.Lines.Add(IntToStr(ArrayTest[i, j]));
end;
end;