[Bars1992]

Я тоже не совсем догнал что он хотел сказать этим.

Ну первое что надо зделать это обявить глобально масив

Код:

var a:array[1..3,1..3] of integer;

Второе: по событию онКреате масив заполняется:

Код:

procedure TForm1.FormCreate(Sender: TObject);
 var i,j:integer;
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   a[i,j]:=//тут твои значения которіе нужно записать в масив

end;

Третее по кнопке выводится исходный масив

Код:

procedure TForm1.sButton1Click(Sender: TObject);
 var i,j:integer;
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
           StringGrid1.Cells[i,j]:=inttostr(a[j,i]);
end;