[YVitaliy]

Все-таки проблема была в этой строке A[i,j]:=StrToIntDef(StringGrid1.Cells[i,j]); там нужно написать A[i,j]:=StrToIntDef(StringGrid1.Cells[i+1,j+1]);
ведь в ячейке[0,0] пусто.
Вот я накатал пример (нечем заняться)