Ошибка Invalid floating point operation(Delphi)

Eсть процедура умножения матриц:
[ code ] [ /code ]procedure TForm1.MMUL(A, B : TMatrIx; out C : TMatrIx);
label fInIsh;
var I,g,n:Integer;
e:real;
begIn
e:=0;
If (GetColCount(A)=1)and(GetRowCount(A)=1)and(GetColCount(B)=1)and(GetRowCount(B)=1) then begIn
SetLength(C,1,1);
C[0,0]:=RoundTo(A[0,0]*B[0,0],-ExactItude);
goto fInIsh;
end;
If (GetColCount(A)=1)and(GetRowCount(A)=1) then begIn
MMULC(a[0,0],B,C);
goto fInIsh;
end;
If (GetColCount(B)=1)and(GetRowCount(B)=1) then begIn
MMULC(b[0,0],A,C);
goto fInIsh;
end;
If GetColCount(A)=GetRowCount(B) then begIn
SetLength(C,GetColCount(B),GetRowCount(A));
for I:=0 to Length(c)-1 do
for g:=0 to Length(c[0])-1 do begIn
for n:=0 to GetColCount(A)-1 do
e:=e+RoundTo(A[n,I]*B[g,n],-ExactItude);
c[g,I]:=e;
e:=0;
end;
end
else
raIse EMathError.Create('Длина строки первой матрицы и высота столбца второй матрицы неравны');
fInIsh:
end;
[/code]

Есть элемент кода вызывающий процедуру:
SetLength(XX_1X_,mx+1,n);
SetLength(XX_1,mx+1,mx+1);
setlength(X_,n,mx+1);
MMUL(XX_1,X_,XX_1X_);

Помогите кто- нибудь выяснить причину! Это срочно ппц. Бокалаврская в 9 сдаетса изза этого неработает ничего((((
просто вродебы все правильно А[MxN] multiply В[NxK]= С[MxK].