Ошибка при отображении графика: "List index out of bounds (1)"

for(i = 1, i<= n; i++){ x[i-1] = StrToInt(StrinpGrid1 -> Cells[0][i]); y[i-1] = StrToInt(StrinpGrid1 -> Cells[1][i]);}

for( i = 1; i<=n; i++ ){x[i-1] = StrToInt(StringGrid1 -> Cells[0][i]);y[i-1] = StrToInt(StringGrid1 -> Cells[1][i]);}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
float X[100],Y[100];//масиви вузлів
int n=2;//початкове значення кількості вузлів
 
       //функція- інтерполяційний многочлен Лагранжа 
float L(float x,float X[100],float Y[100],int n)
{
    if(n<=100)
    {
        float S=0;
        for(int i=0;i<n;i++)
        {
           float P=1;
           for(int j=0;j<n;j++)
             if(j!=i)
               P=P*(x-X[j])/(X[i]-X[j]);
           S=S+Y[i]*P;
         }
      return S;
    }
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
     //Вихід
void __fastcall TForm1::N6Click(TObject *Sender)
{
   Form1->Close();        
}
//---------------------------------------------------------------------------
     //при активації форми
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    StringGrid1->Cells[0][0]="  X";
    StringGrid1->Cells[0][1]="  Y";
 
}
//---------------------------------------------------------------------------
        //зміна кількості вузлів
void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
{
    StringGrid1->ColCount=UpDown1->Position+1;
    n=UpDown1->Position;
}
//---------------------------------------------------------------------------
          //натиснення клавіші на клавіатурі
void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
  if(Key==13) //клавіша ENTER
  {
     Series1->Clear();
     Series2->Clear();
     for(int i=0;i<n;i++)
        if(StringGrid1->Cells[i][0]!="")
           if(StringGrid1->Cells[i][1]!="")
             {     //заповнюємо масиви вузлів
                X[i]=StrToFloat(StringGrid1->Cells[i+1][0]);
                Y[i]=StrToFloat(StringGrid1->Cells[i+1][1]);
             }
 
     for(int i=0;i<n;i++)
       Series1->AddXY(X[i],Y[i]);//виводимо вузли
 
     float a=StrToFloat(StringGrid1->Cells[1][0]);//ліва границя
     float b=StrToFloat(StringGrid1->Cells[n][0]);//права границя
     float d=(b-a)/200;  //крок виводу графіку
     for(int i=0;i<200;i++)//виводимо інтерполяційний многочлен
        Series2->AddXY(a+d*i,L(a+d*i,X,Y,n));
 
  }
 
}
//---------------------------------------------------------------------------
        //збереження графіку у файл
void __fastcall TForm1::N2Click(TObject *Sender)
{
    if(SavePictureDialog1->Execute())
         Chart1->SaveToBitmapFile(SavePictureDialog1->FileName+".bmp");
}
//---------------------------------------------------------------------------
       //показати довідку
void __fastcall TForm1::N4Click(TObject *Sender)
{
   Form2->ShowModal();        
}
//---------------------------------------------------------------------------

     Chart1->Series[1]->Clear();
     Chart1->Series[2]->Clear();