Ошибка DLL в Release версии приложения

#include <vcl.h>
#include <windows.h>
#pragma hdrstop
//---------------------------------------------------------------------------
//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or delete
//   operations on any non-TObject-derived classes which are exported from the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------
 
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}

#include "fDLL.h"
#include "math.h"
//---------------------------------------------------------------------------
float bOne (float x[], float y[], int n)
{
    float s1=0,s2=0,s3=0,s4=0,b1;
    for(int i=1;i<n;i++)
    {
        s1 = s1 + y[i]/x[i];
        s2 = s2 + y[i];
        s3 = s3 + 1/x[i];
        s4 = s4 + 1/(x[i]*x[i]);
    }
    b1 = (n*s1-s2*s3)/(n*s4-s3*s3);
    return b1;
}
float bZero (float x[], float y[], int n, float b1)
{
    float s1=0,s2=0,s3=0,b0;
    for(int i=1;i<n;i++)
    {
        s1 = s1 + y[i]/x[i];
        s2 = s2 + 1/(x[i]*x[i]);
        s3 = s3 + 1/x[i];
 
    }
    b0 = (s1-b1*s2)/s3;
    return b0;
}
float Pogresh (float b0, float b1, float y[], int n)
{
   float dl1[100], max, yp[100];
    for(int i=1;i<n;i++)
    {
    yp[i]= b1*y[i]+b0;
    dl1[i]=fabs((y[i] - yp[i])/yp[i]);
    if(dl1[i]>dl1[i-1])
    max= dl1[i];
    }
    return max;
}

//Файл заголовка - fDLL.h
#ifndef __ fDLL _H
#define __ fDLL _H
 
#if defined(__cplusplus)
extern "C"
{
#endif
__declspec(dllexport) float bOne (float x[], float y[], int n);
__declspec(dllexport) float bZero (float x[], float y[], int n, float b1);
__declspec(dllexport) float Pogresh (float b0, float b1, float y[], int n);
#if defined(__cplusplus)
}
#endif
 
#endif //__dDLL _H

//My DLL
typedef float (*BONE)(float x[], float y[], int n);
BONE bOne;
typedef float (*BZERO)(float x[], float y[], int n, float b1);
BZERO bZero;
typedef float (*POGRESH)(float b0, float b1, float y[], int n);
POGRESH Pogresh;
 
 
//button1click
DllHandle=LoadLibrary("dll/hiper.dll");
 if(DllHandle)
 {
 Application->MessageBoxA(L"HiperMY.DLL подключен!",L"Внимание", MB_OK | MB_ICONINFORMATION);
 }
 else
 {
 Application->MessageBoxA(L"HiperMY.DLL не найден!",L"Ошибка", MB_OK | MB_ICONERROR);
 }
 if(DllHandle)
  {
   bOne=(BONE)GetProcAddress(DllHandle,"_bOne");
   bZero=(BZERO)GetProcAddress(DllHandle,"_bZero");
   Pogresh=(POGRESH)GetProcAddress(DllHandle,"_Pogresh");
  }
 
float x[25], y[25], y1[25], b1, b0, max, b11, b01, max1;
int r;
for (int i=1; i < Data->RowCount; i++)
{
  x[i]=StrToFloat(Data->Cells[0][i]);
  y[i]=StrToFloat(Data->Cells[1][i]);
  y1[i]=StrToFloat(Data->Cells[2][i]);
}
r=Data->RowCount;
b1=bOne(x,y,r);
b0=bZero(x,y,r,b1);
max=Pogresh(b0,b1,y,r);
Label3->Caption="Погрешность гиперболического метода равна " + FloatToStr(max);
//Form7->Series1->AddXY(2,max);
 
b11=bOne(x,y1,r);
b01=bZero(x,y1,r,b11);
max1=Pogresh(b01,b11,y1,r);
 
//for (int i=1; i < Data->RowCount; i++)
//{
//Series1->AddXY(x[i],b0+b1/x[i]);
//Series4->AddXY(x[i],b01+b11/x[i]);
//}
FreeLibrary(DllHandle);

for (int i=1; i < Data->RowCount; i++)
{
  x[i]=StrToFloat(Data->Cells[0][i]);
  y[i]=StrToFloat(Data->Cells[1][i]);
  y1[i]=StrToFloat(Data->Cells[2][i]);
}

for (int i=1; i < Data->RowCount; i++)
{
  x[i]=StrToFloat(Data->Cells[0][i]);
}
for (int i=1; i < Data->RowCount; i++)
{
  y[i]=StrToFloat(Data->Cells[1][i]);
}
for (int i=1; i < Data->RowCount; i++)
{
  y1[i]=StrToFloat(Data->Cells[2][i]);
}