[Не мёртвый АНАРХИСТ]

Сделай так:

Object Inspector / StringGrid / Options / goEditing / true.

Потом код:

for i:=1 to n+1 do
for j:=1 to n do
m[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);