При запуске программы выдает ошибку в последней строке? Почему?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include <math.h>
#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)
{ float a[18];int i,max=0,imax;
for(i=0;i<18;i++) a[i]=StrToInt(SG1->Cells[i][0]);
max=a[0];imax=0;
for(i=1;i<18;i++)
if(a[i]>max){max=a[i];imax=i;}
a[imax]=a[17];
a[17]=max;
for(i=0;i<18;i++) SG2->Cells[i][0]=IntToStr(a[i]);
 
 
}

#include <vcl.h>
 #pragma hdrstop
 
 #include <math.h>
 #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)
 { 
  float a[18];int i,max=0,imax;
  for(i=0;i<18;i++) a[i]=StrToInt(SG1->Cells[i][0]);
  max=a[0];imax=0;
  for(i=1;i<18;i++)
  if(a[i]>max){max=a[i];imax=i;}
  a[imax]=a[17];
  a[17]=max;
  for(i=0;i<18;i++) SG2->Cells[i][0]=IntToStr(a[i]);
}