Ошибка " " is not a valid floating point value "

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n,m,**a,*b,i,j,pr,tp1,tp2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Edit1->Text="0";
Edit2->Text="0";
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n;i++)
{
StringGrid1->Cells[0][i]="i="+IntToStr(i);
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text=="")
{
ShowMessage("Ошибка! Требуется ввести числовое значение!");
Edit1->Text="0";}
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid2->RowCount=m;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n+1;i++)
StringGrid1->Cells[0][i]="i="+IntToStr(i);
for(i=1;i<=m+1;i++)
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (i=0;i<n+1;i++)
{Form1->StringGrid2->Cells[0][i]="k=";}
pr=0;
for (i=1;i<n;i++)
for (j=1;j<m;j++)
if (Form1->StringGrid1->Cells[i][j]=="")
pr=1;
b=new int[n];
a=new int*[m];
for(i=0;i<m;i++)
a[i]=new int[n];
for (i=0;i<m;i++)
for (j=0;j<n;j++)
{
tp2=StrToInt(Form1->StringGrid1->Cells[j+1][i+1]);
a[i][j]=tp2;
{
tp1=a[i][j];
}
}
for (i=0;i<m;i++)
{
for (j=0;j<n/2;j++)
{
tp1=a[i][j];
tp2=a[i][n-j-1];
if (tp1==tp2){
b[i]=1 ;
StringGrid2->Cells[1][i]=IntToStr(b[i]);}
else {
b[i]=0 ;
StringGrid2->Cells[1][i]=IntToStr(b[i]);
break;
}}}        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if(Edit2->Text=="")
{ShowMessage("Ошибка! Требуется ввести числовое значение!");
Edit2->Text="";
}
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid2->RowCount=m;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n+1;i++)
StringGrid1->Cells[0][i]="i="+IntToStr(i);
for(i=1;i<=m+1;i++)
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for(i=0;i<n;i++)
delete[]a[i];
delete[]a;
 
//delete []b;
ShowMessage("Очищено!");
exit(0);
}
//---------------------------------------------------------------------------