Видает ошибку!

// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"
TForm1 *Form1;
// ---------------------------------------------------------------------------
__fastcall TForm1:: TForm1 (TComponent* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Button1Click (TObject *Sender)
{
N = StrToFloat (Edit1->Text);
StringGrid1->RowCount = N+1;
StringGrid1->Cells [0] [0] ="Предпритие";
StringGrid2->Cells [0] [0] ="Предпритие";
StringGrid1->Cells [1] [0] ="Балансовая прибыль";
StringGrid1->Cells [2] [0] ="Издержки обращения";
StringGrid1->Cells [0] [1] ="Ольса";
StringGrid1->Cells [0] [2] ="Авангард";
StringGrid1->Cells [0] [3] ="Мебек";
StringGrid2->Cells [0] [1] ="Ольса";
StringGrid2->Cells [0] [2] ="Авангард";
StringGrid2->Cells [0] [3] ="Мебек";
StringGrid2->Cells [1] [0] ="Ук";
StringGrid3->Cells [0] [0] ="Критерий сравнения";
StringGrid3->Cells [1] [0] ="Ольса";
StringGrid3->Cells [2] [0] ="Авангард";
StringGrid3->Cells [3] [0] ="Мебек";
StringGrid3->Cells [0] [1] ="Конструкция";
StringGrid3->Cells [0] [2] ="Уровеннь обслуживания";
StringGrid3->Cells [0] [3] ="Дизайн и эрганомичность";
StringGrid3->Cells [0] [4] ="Качество продукции";
StringGrid4->Cells [0] [0] ="Предприятие";
StringGrid4->Cells [1] [0] ="Кк";
StringGrid4->Cells [0] [1] ="Ольса";
StringGrid4->Cells [0] [2] ="Авангард";
StringGrid4->Cells [0] [3] ="Мебек";
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: BitBtn1Click (TObject *Sender)
{
for (int i=0; i<3; i++)
Yk [i] = StrToFloat (StringGrid1->Cells [1] [i+1]) *100/ StrToFloat (StringGrid1->Cells [2] [i+1]);
for (int i=0; i<3; i++)
StringGrid2->Cells [1] [i+1] =FloatToStr (Yk [i]);
Max=StrToFloat (StringGrid2->Cells [1] [1]);
if (StrToFloat (StringGrid2->Cells [1] [1]) > StrToFloat (StringGrid2->Cells [1] [2]))
{
Max = StrToFloat (StringGrid2->Cells [1] [1]);
N=1;
}
else N=2;
if (StrToFloat (StringGrid2->Cells [1] [2]) > StrToFloat (StringGrid2->Cells [1] [3]))
{
Max = StrToFloat (StringGrid2->Cells [1] [2]);
N=2;
}
else N=3;
if (StrToFloat (StringGrid2->Cells [1] [1]) > StrToFloat (StringGrid2->Cells [1] [3]))
{
Max = StrToFloat (StringGrid2->Cells [1] [1]);
N=1;
}
else N=3;
Edit2->Text = StringGrid2->Cells [0] [N];
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Button2Click (TObject *Sender)
{
W [0] =0.3;
W [1] =0.1;
W [2] =0.2;
W [3] =0.4;
Kk [0] =StrToFloat (StringGrid3->Cells [1] [1]) *W [0] /StrToFloat (StringGrid3->Cells [2] [1]) +
StrToFloat (StringGrid3->Cells [1] [2]) *W [1] /StrToFloat (StringGrid3->Cells [2] [2]) +
StrToFloat (StringGrid3->Cells [1] [3]) *W [2] /StrToFloat (StringGrid3->Cells [2] [3]) +
StrToFloat (StringGrid3->Cells [1] [4]) *W [3] /StrToFloat (StringGrid3->Cells [2] [4]);
Kk [1] =StrToFloat (StringGrid3->Cells [2] [1]) *W [0] /StrToFloat (StringGrid3->Cells [1] [1]) +
StrToFloat (StringGrid3->Cells [2] [2]) *W [1] /StrToFloat (StringGrid3->Cells [1] [2]) +
StrToFloat (StringGrid3->Cells [2] [3]) *W [2] /StrToFloat (StringGrid3->Cells [1] [3]) +
StrToFloat (StringGrid3->Cells [2] [4]) *W [3] /StrToFloat (StringGrid3->Cells [1] [4]);
Kk [2] =StrToFloat (StringGrid3->Cells [3] [1]) *W [0] /StrToFloat (StringGrid3->Cells [1] [1]) +
StrToFloat (StringGrid3->Cells [3] [2]) *W [1] /StrToFloat (StringGrid3->Cells [1] [2]) +
StrToFloat (StringGrid3->Cells [3] [3]) *W [2] /StrToFloat (StringGrid3->Cells [1] [3]) +
StrToFloat (StringGrid3->Cells [3] [4]) *W [3] /StrToFloat (StringGrid3->Cells [1] [4]);
for (int i=0; i<3; i++)
StringGrid4->Cells [1] [i+1] =FloatToStr (Kk [i]);
Max1=StrToFloat (StringGrid4->Cells [1] [1]);
if (StrToFloat (StringGrid4->Cells [1] [1]) > StrToFloat (StringGrid4->Cells [1] [2]))
{
Max1 = StrToFloat (StringGrid4->Cells [1] [1]);
M=1;
}
else M=2;
if (StrToFloat (StringGrid4->Cells [1] [2]) > StrToFloat (StringGrid4->Cells [1] [3]))
{
Max1 = StrToFloat (StringGrid4->Cells [1] [2]);
M=2;
}
else M=3;
if (StrToFloat (StringGrid4->Cells [1] [1]) > StrToFloat (StringGrid4->Cells [1] [3]))
{
Max1 = StrToFloat (StringGrid4->Cells [1] [1]);
M=1;
}
else M=3;
Edit3->Text = StringGrid4->Cells [0] [M];
}
// ---------------------------------------------------------------------------

void _fastcall TForm1::Button1Click(TObject *Sender);
void _fastcall TForm1::BitBtn1Click(TObject *Sender);
void _fastcall TForm1::Button2Click(TObject *Sender);