не понятное значчение в ячейке StringGrid

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double S (double R[3]);
double S1 (double R1[3][3]);
double S2 (double R2[3]);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
StringGrid1->Cells[0][0]="Реш./Усл.";
StringGrid2->Cells[0][0]="Реш./Усл.";
 
StringGrid1->Cells[0][1]="E1";
StringGrid1->Cells[0][2]="E2";
StringGrid1->Cells[0][3]="E3";
 
StringGrid1->Cells[1][0]="F1";
StringGrid1->Cells[2][0]="F2";
StringGrid1->Cells[3][0]="F3";
 
StringGrid2->Cells[0][1]="E1";
StringGrid2->Cells[0][2]="E2";
StringGrid2->Cells[0][3]="E3";
 
StringGrid2->Cells[1][0]="F1";
StringGrid2->Cells[2][0]="F2";
StringGrid2->Cells[3][0]="F3";
 
StringGrid2->Cells[4][0]=" ";
 StringGrid2->Visible = false;
}
//---------------------------------------------------------------------------
  double S1 (double R1[3][3])
{
double max;
max=R1[0][0];
for ( int i = 0; i<3; i++)
for ( int j = 0; j<3; j++)
if (R1[i][j]>max) max=R1[i][j];
return max;
}
 
double S (double R[3])
{
double min;
min=R[0];
for ( int i = 0; i<4; i++)
if (R[i]<min) min=R[i];
return min;
}
double S2 (double R2[3])
{
double max;
max=R2[0];
for ( int i = 0; i<3; i++)
if (R2[i]>max) max=R2[i];
return max;
}
 
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; i<4;++i)
{
for(int j = 0; j<4;++j)
str += StringGrid1->Cells[j][i]+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
}
str +="q[j]="+Edit1->Text+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
sl->SaveToFile("Soh_usl.xls");
MessageBox(0,"Экспорт произведен!","Готово",MB_OK|MB_ICONINFORMATION);
delete sl;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
WideString str1;
TStringList *s2 = new TStringList;
for(int i = 0 ; i<5;++i)
{
for(int j = 0; j<5;++j)
str1 += StringGrid2->Cells[j][i]+ "\t";
s2->Add(Trim(str1));
str1 = "\n\r" ;
}
str1 += Label1->Caption+ "\t";
s2->Add(Trim(str1));
str1 = "\n\r" ;
s2->SaveToFile("Soh_resh.xls");
MessageBox(0,"Экспорт произведен!","Готово",MB_OK|MB_ICONINFORMATION);
delete s2;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double m1,m2,m3;
double A[3],B[3],C[3];
double q=StrToFloat(Edit1->Text);
double M[3][3], D[3], E[3], F[3];
double z1,z2,z3, r;
r=0;
StringGrid2->Visible = false;
    for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
  if( StringGrid1->Cells[i][j].IsEmpty() )
    {
    r++;
    }
}
 }
   if( r>0)
    {
        StringGrid2->Visible = false;
    MessageBox(0,"Матрица решений не заполнена!","Ошибка",MB_OK|MB_ICONERROR);
    Label1->Caption="Ошибка";
    z1=0;
    z2=0;
    z3=0;
    }
 
   if(ComboBox1->ItemIndex==-1)
  {
   StringGrid2->Visible = false;
   MessageBox(0,"Критерий не выбран!","Ошибка",MB_OK|MB_ICONERROR);
     Label1->Caption="Ошибка";
       z1=0;
    z2=0;
    z3=0;
  }
      if (q>1)
{
StringGrid2->Visible = false;
MessageBox(0,"Вероятность q[j] не может быть больше 1","Ошибка",MB_OK|MB_ICONERROR);
  Label1->Caption="Ошибка";
     z1=0;
    z2=0;
    z3=0;
}
 
switch(ComboBox1->ItemIndex)
{
case 0:
{
 StringGrid2->Visible = true;
   for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
StringGrid2->Cells[i][j]=StringGrid1->Cells[i][j];
}
}
for (int i=1;i<4;i++)
{
A[i-1]=StrToFloat(StringGrid2->Cells[i][1]);
}
for (int i=1;i<4;i++)
{
B[i-1]=StrToFloat(StringGrid2->Cells[i][2]);
}
for (int i=1;i<4;i++)
{
C[i-1]=StrToFloat(StringGrid2->Cells[i][3]);
}
z1=S(A);
StringGrid2->Cells[4][1]=FloatToStr(z1);
z2=S(B);
StringGrid2->Cells[4][2]=FloatToStr(z2);
z3=S(C);
StringGrid2->Cells[4][3]=FloatToStr(z3);
break;
 
}
 case 1:
{
    StringGrid2->Visible = true;
 for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
M[i-1][j-1]=StrToFloat(StringGrid1->Cells[i][j]);
}
}
double n=S1(M);
for ( int i = 0; i<3; i++)
for ( int j = 0; j<3; j++)
M[i][j]=M[i][j]-(n+1);
for (int i=0;i<3;i++)
{
for (int j=0;j<3;j++)
{
StringGrid2->Cells[i+1][j+1]=FloatToStr(M[i][j]);
}
}
for (int i=1;i<4;i++)
{
D[i-1]=StrToFloat(StringGrid2->Cells[i][1]);
D[i-1]=D[i-1]*q;
}
for (int i=1;i<4;i++)
{
E[i-1]=StrToFloat(StringGrid2->Cells[i][2]);
E[i-1]=E[i-1]*q;
}
for (int i=1;i<4;i++)
{
F[i-1]=StrToFloat(StringGrid2->Cells[i][3]);
F[i-1]=F[i-1]*q;
}
z1=S(D);
StringGrid2->Cells[4][1]=FloatToStr(z1);
z2=S(E);
StringGrid2->Cells[4][2]=FloatToStr(z2);
z3=S(F);
StringGrid2->Cells[4][3]=FloatToStr(z3);
break;
}
 
}
 
 
 
if (z1>z2 && z1>z3)
{
Label1->Caption="Оптимальное решение - проект E0={Е1}= "+FloatToStr(z1);
}
if (z2>z1 && z2>z3)
{
Label1->Caption="Оптимальное решение - проект E0={Е2}= "+FloatToStr(z2);
}
if (z3>z1 && z3>z2)
{
Label1->Caption="Оптимальное решение - проект E0={Е3}= "+FloatToStr(z3);
}
 if (z1==z2)
{
Label1->Caption="Ошибка";
}
 if (z1==z3)
{
Label1->Caption="Ошибка";
}
 if (z2==z3)
{
Label1->Caption="Ошибка";
}
 if (z2==z1)
{
Label1->Caption="Ошибка";
}
 if (z3==z1)
{
Label1->Caption="Ошибка";
}
 if (z3==z2)
{
Label1->Caption="Ошибка";
}
 
}