видає помилку " is not a valid floating point value"

_fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ }
int N = 0;
double A [10][10], B[10], X[10];
bool Gauss(double A[10][10], double B[10],int N,double X[10])
{
int i, j, k;
double r;
for(i=1; i<= N-1; i++)
{
k = i;
r = fabs(A);
for(j=i+1; j<=N; j++)
{
if (fabs(A[j]) >= r)
{
k = j;
r = fabs(A[j]); }
}
if (r <= 1e-7) return false;
if(k != i)
{
r = B[k];
B[k] = B;
B = r;
for(j=i; j<=N; j++)
{
r = A[k][j];
A[k][j] = A[j];
A[j] = r;
}
}
r = A;
B /= r;
for (j=1; j<=N; j++)
{
A[j] /= r;
}
for (k=i+1;k<=N;k++)
{
r = A[k];
B[k] -= r*B;
A[k]=0;
for (j=i+1; j<=N; j++)
A[k][j] -= r * A[j];
}
}
if (fabs(A[N][N])<= 1e-7) return false;
X[N]=B[N]/A[N][N];
for(i=N-1; i>=1; i--)
{
r = B;
for(j = i+1; j <= N; j++ )
r -= A[j] * X[j];
X = r;
}
return true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
N=StrToInt(Edit1->Text);
StringGrid1->ColCount = N;
StringGrid1->RowCount = N;
StringGrid2->RowCount = N;
StringGrid3->RowCount = N;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i, j;
for (i=0; i <= N-1; i++)
{
for (j=0; j<=N-1; j++)
A[i+1][j+1] = StrToFloat(StringGrid1->Cells[j]);
B[i-1]=StrToFloat(StringGrid3->Cells[0]);
}
if (Gauss(A, B, N, X))
{
for (int i=0; i<=N-1; i++)
StringGrid2->Cells[0] = FloatToStr(X[i+1]);
}
else
ShowMessage("Матриця вироджена!");
}
//---------------------------------------------------------------------------

Допоможіть рішити помилку!!!