Числовые методы(C++ Builder)

[Nicol_Vyt]

Есть написанная программа которая осуществляет метод вычисления левых прямоугольников, вот она.. Выдает ошибку при вычислении

(Debugger Exception Notification: Project Project2.exe raised exception class EListError with message 'List index out of bounds ()'. Process stopped. Use Step or Run to continue.)

Прикрепил архив с моими наработками.

//---------------------------------------------------------------------------

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
float s,x;
float func (float x)
{return  (pow(2,log(x)))/x;  }

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------




void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try
{  float s,n,h,a,b,x;
a=StrToFloat(EditA->Text);
b=StrToFloat(EditB->Text);
n=StrToFloat(EditN->Text);
h=(b-a)/n;
for (int i=1;i<=n;i++)
{
x=a+i*h;
s=s+(h*func(x));
Memo1->Lines->Add(IntToStr(i)+' '+FloatToStr(x)+'-'+FloatToStr(s));
Chart1->Series[0]->AddXY(x,s,clRed);
}
}
catch (...)
{ ShowMessage ("Fail!Epic FAIL!!!");
}}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
EditA->Text="   ";
EditB->Text="   ";
EditN->Text="   ";
Memo1->Clear();
}
//---------------------------------------------------------------------------