[lmikle]

Вот писал получение матрицы из StringGrid:

Код:

function TMainForm5.GetMatrix : Boolean;
var
  I, J : Integer;
begin
  Result := True;

  SetLength(A,sgMatrix.ColCount);
  For I := Low(A) To High(A) Do
    Begin
      SetLength(A[i],sgMatrix.RowCount);
      For J := Low(A[i]) To High(A[i]) Do
        If Not TryStrToInt(sgMatrix.Cells[I,J],A[I,J]) Then
          Begin
            ShowMessage(Format('Error: Can''t convert value in cell %d,%d to integer.',[I+1,J+1]));
            sgMatrix.SetFocus;
            Result := False;
            Exit;
          End;
    End;
end;

Переделаешь под себя, заместо сообщения и вылета можно, например, 0 подставлять.