Как вивести многомерний массив в Delphi?

Question

procedure TForm1.Button1Click(Sender: TObject); 
var 
memo: array[1..3, 1..3] of integer; 
i, j: integer; 
begin 
 memo[1,1]:=1; memo[1,2]:=2; memo[1,3]:=3; 
 memo[2,1]:=3; memo[2,2]:=2; memo[2,3]:=1; 
 memo[3,1]:=2; memo[3,2]:=1; memo[3,3]:=3; 
 for i:=0 to 3 do 
 for j:=0 to 3 do 
 begin 
 Memo1.Lines.Add(IntToStr(memo[i,j])); 
 end; 
end; 
 
end. 
Но ето не правельний вариант, подскажите!)

Redis, можеш написать с переменними, у меня просто в компиляторе ошибку видаєт...

Максим Суворов · Accepted Answer

Как таблицу :) 
for y := 1 to h do 
begin 
s := ''; 
for x := 1 to w do 
s := s + ' ' + IntToStr( a[ x, y] ] ); 
Memo1.Lines.Add( s ); 
end;