ошибку выдает (функция)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <stdlib.h>
#include <math.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
   int n,i;
double s[100];
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 void func( int n, int q)
       {   for (i=0;i<n;i++)
     {
     if (i% 2 !=0)
     {
        s[i]=s[i]*s[i];
     }
     if (i%2 ==0)
     {
        s[i]=s[i]*q;
     }
           }  }
void __fastcall TForm1::Button2Click(TObject *Sender)
 {   int i, q;
  func  (n,q);
           q=StrToFloat(Edit2->Text);
     Memo2->Lines->Add("s["+IntToStr(i)+"]=  "+s[i]+"  ");}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     srand(time(NULL));
     Memo1->Clear();
     Memo2->Clear();
     n=StrToFloat(Edit1->Text);
     for (i=0; i<n;i++)
     {
         s[i] = rand() % 50;
         Memo1->Lines->Add("s["+IntToStr(i)+"]=  "+s[i]+"  ");
     }
 
}

Memo2->Lines->Add("s["+IntToStr(i)+"]=  "+s[i]+"  ");

void __fastcall TForm1::Button2Click(TObject *Sender)
{   
 int i, q;
 q=StrToInt(Edit2->Text);
 func  (n,q);
 for (i=0; i<n;i++) Memo2->Lines->Add("s["+IntToStr(i)+"]=  "+s[i]+"  ");
}