Постаянная ошибка в линке файла

[CPP]//---------------------------------------------------------------------------
 
#include <clx.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.xfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
{
float x1,x2,H,e,x,S,Y,F,m;
x1=0.1;
x2=1;
H=(x2-x1)/10;
e=2.718281;
S=0;
 
float Sum(float m);
int i,g;
for (i=0;i<10;i++)
for (g=1;g<=i;g++)
{
F=F*g ;
S=S+pow(m, (2*i))/2*F;
F=1;
}
{
x=x1;
Y=0;
i=0;
S=1;
Memo1->Clear();
while (x<=1)
{
Memo1->Lines->Add("X: "+FloatToStr(x));
Y=(pow(e,x1)+pow(e,-x1))/2;
Memo1->Lines->Add("Y: "+FloatToStr(Y));
S=Sum(x1);
Memo1->Lines->Add("S: "+FloatToStr(S));
Memo1->Lines->Add("_______________________");
x=x+H;
}
}
}
}
//---------------------------------------------------------------------------
[/CPP]