Что за ошибка такая?

#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "Series"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma link "Chart"
#pragma link "Series"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma resource "*.dfm"
#include <iostream.h>
#include <fstream.h>
#include <math.h>
#include <string.h>
//---------------------------------------------------------------------------
TForm4 *Form4;
float y[30],y1[30],y2[30],c[10000],ej=0;
const int a=10000,f=15,n=4,lk=5;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
String str[n][lk];
str[0][lk]="2";
str[1][lk]="3";
str[2][lk]="10";
str[3][lk]="11";
float Tmp[n][a];
for(int ni=0;ni<n;ni++)
{
 AnsiString s=str[ni][lk].c_str();
 ShowMessage(s);
 AnsiString FileName="\\bmp\\"+s+".bmp";
   Graphics::TBitmap *Buf=new Graphics::TBitmap;
   Buf->LoadFromFile(FileName);
   for(int i=0; i < Buf->Height;i++)
                {
                for(int j=0;j < Buf->Width;j++)
                        {
                        unsigned long hw;
                        int R,G,B;
                        hw=(int) Buf->Canvas->Pixels[i][j];
                        Tmp[ni][i*100+j]=(GetRValue(hw)+GetGValue(hw)+GetBValue(hw))/3;
                        }
                        }
  delete Buf;
}
 
   float sum[n];
   for(int i=0;i<a;i++)
   {
   c[i]=0;
   }
      for(int j=0;j<n;j++)
      {
      sum[j]=0;
      for(int i=0;i<a;i++)
      {
       sum[j]=sum[j]+Tmp[j][i]*Tmp[j][i];
      }
      }
 
float ei[n],eps=0.01,ef=7,k=0;
int cikl=3;
for(int i=0;i<n;i++)
{
ei[i]=0;
}
while(cikl>2)
{
   for(int j=0;j<n;j++)
   {
   while(abs(ef-ei[j])>eps)
   {
      for(int i=0;i<a;i++)
      {
       c[i]=c[i]+((ef-ei[j])/sum[j])*Tmp[j][i];
      }
      ei[j]=0;
      for(int i=0;i<a;i++)
      {
       ei[j]=ei[j]+Tmp[j][i]*c[i];
      }
    }
   }
 
 for(int j=0;j<n;j++)
 {
  ei[j]=0;
  for(int i=0;i<a;i++)
  {
  ei[j]=ei[j]+Tmp[j][i]*c[i];
  }
 }
 
for(int i=0;i<n;i++)
{
  if(abs(ef-ei[i])>eps)
  {
   cikl=3;
   break;
  }else{
   cikl=1;
  }
}
 
k=k+1;
if(k==10000)
{
 ShowMessage(k);
 cikl=0;
}
 
}
for(int j=0;j<n;j++)
 {
  ei[j]=0;
  for(int i=0;i<a;i++)
  {
  ei[j]=ei[j]+Tmp[j][i]*c[i];
  }
  ShowMessage(ei[j]);
 }
ShowMessage(k);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
for(int k=1;k<=f;k++)
   {
   AnsiString FileName="\\bmp\\"+IntToStr(k)+".bmp";
   Graphics::TBitmap *Buf=new Graphics::TBitmap;
   float TmpReceptor[a];
   Buf->LoadFromFile(FileName);
   for(int i=0; i < Buf->Height;i++)
                {
                for(int j=0;j < Buf->Width;j++)
                        {
                        unsigned long hw;
                        int R,G,B;
                        hw=(int) Buf->Canvas->Pixels[i][j];
                        TmpReceptor[i*100+j]=(GetRValue(hw)+GetGValue(hw)+GetBValue(hw))/3;
                        }
                }
                delete Buf;
                for(int i=0;i<a;i++)
                {
                  ej=ej+TmpReceptor[i]*c[i];
 
                }
                y[k]=ej;
                ej=0;
    }
          for(int i=1;i<=f;i++)
          {
           Series1->AddXY(i,y[i],clGreen);
          }
}
//---------------------------------------------------------------------------