Работа с динамическими массивами и функциями

int kol(int &n)
{n=Form1->Memo1->Lines->Count;
float x1, x2;
int k1;
for (int i=0; i<n; i++)
{
x1=StrToFloat (Form1->Memo1->Lines->Strings[i]);
k1=x1;
}
x2=StrToFloat (Form1->Memo1->Lines->Strings[0]);
int k2=x2;
int f=(k1+k2)/2;
return f;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n, i, f, k1,k2;
float x;
float *a=new float [f];
int j=0;
for (i=0; i<f; i++)
{x=StrToFloat (Memo1->Lines->Strings[i];
a[j]=x;
j++;
}
StringGrid1->RowCount=f;
for (int i=0; i<f; i++)
int pid=kol(n)l]StringGrid1->Cells[0][i]=FloatToStr(a[i]);
Edit1->Text=IntToStr(k1);
Edit2->Text=IntToStr(k2);
}

n=Form1->Memo1->Lines->Count;
...
x1=StrToFloat (Form1->Memo1->Lines->Strings[n]);

float *a;//глобально,чтоб из всех функций был виден
int n;//глобально,
//-------------------
f=kol(n);//нужен вызов функции перед созданием массива
*a=new float [f];//а то f неизвестно
...
for (i=0; i<f; i++)
{
 a[i]=StrToFloat (Memo1->Lines->Strings[i]);//убрал переменную x, чтоб память меньше занимать.
 //j++;//тоже лишнее
}

Unit1.ccp
//------
TForm1 *Form1;
float *a;//глобально,чтоб из всех функций был виден
int n;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int TForm1::kol(void)
{
n=Form1->Memo1->Lines->Count;
float x1, x2;
int k1;
x1=StrToFloat (Form1->Memo1->Lines->Strings[n-1]);
k1=x1;
x2=StrToFloat (Form1->Memo1->Lines->Strings[0]);
int k2=x2;
int f=(k1+k2)/2;
return f;
}
//---------------------------------------------------------------------------
void TForm1::zapol(float* b,int c)//заполнение массива
{
for (int i=0;i<c;i++)
{
 b[i]=StrToFloat (Memo1->Lines->Strings[i]);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int f;
f=kol();//нужен вызов функции перед созданием массива
a=new float [f];//а то f неизвестно
zapol(a,f);
for (int i=0;i<f;i++)
{
 Memo2->Lines->Add(FloatToStr(a[i]));//выводим массив
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete []a;//очищаем память
a=NULL;        
}

Unit1.h
//-------
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        int kol(void);
        void zapol(float*,int);