Ошибка: "no matching function for call to strcpy"

//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#include <io.h>
#include <stdio.h>
#include <string.h>
 
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm2 *Form2;
 
struct person{
  char FIO[30];
  int god;
  int num;
  int fiz;
  int math;
  int inf;
  int xim;
  float ball;
};
int size = sizeof(person);
FILE* Fz;
AnsiString File_Zap;
person stud;
person *group;
void Out(person, TMemo*);
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
OpenDialog1->Title="Создать новый файл";
        if (OpenDialog1->Execute()){
                File_Zap = OpenDialog1->FileName;
                if ((Fz=fopen(File_Zap.c_str(),"wb"))==NULL)  {
                        ShowMessage("Ошибка создания ФАЙЛА!");
                        return;
                }
        }
        Memo1->Lines->Add("Создали новый файл: "+AnsiString(File_Zap));
        fclose(Fz);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Fz = fopen(File_Zap.c_str(),"ab");
strcpy(stud.FIO, Edit1->Text.c_str());
stud.god=StrToInt(Edit2->Text);
stud.num=StrToInt(Edit3->Text);
stud.fiz=StrToInt(Edit4->Text);
stud.math=StrToInt(Edit5->Text);
stud.inf=StrToInt(Edit6->Text);
stud.xim=StrToInt(Edit7->Text);
stud.ball=(stud.fiz+stud.math+stud.inf+stud.xim)/4;
 
Out(stud, Memo1);
fwrite(&stud, size, 1, Fz);
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
fclose(Fz);
}
//---------------------------------------------------------------------------
void Out(person z, TMemo *Memo1)
{
     Memo1->Lines->Add("Фамилия "+AnsiString(z.FIO));
     Memo1->Lines->Add("Год рождения "+AnsiString(z.god));
     Memo1->Lines->Add("Номер группы "+AnsiString(z.num));
     Memo1->Lines->Add("Физика "+AnsiString(z.fiz));
     Memo1->Lines->Add("Математика "+AnsiString(z.math));
     Memo1->Lines->Add("Информатика "+AnsiString(z.inf));
     Memo1->Lines->Add("Химия "+AnsiString(z.xim));
     Memo1->Lines->Add("Средний балл "+AnsiString(z.ball));
     Memo1->Lines->Add("------------");
}
 
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
OpenDialog1->Title="Открыть файл";
   if (OpenDialog1->Execute()) {
                File_Zap = OpenDialog1->FileName;
                if ((Fz=fopen(File_Zap.c_str(),"rb"))==NULL)  {
                        ShowMessage("Ошибка открытия ФАЙЛА!");
                        return;
                }
   }
   Memo1->Lines->Add("--------- Все сведения ---------");
   while(1){
    if(!fread(&stud,size,1,Fz)) break;
            Out(stud, Memo1);
   }
   fclose(Fz);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button4Click(TObject *Sender)
{
Fz = fopen(File_Zap.c_str(),"rb");
int D_f = fileno(Fz);               // Находим дескриптор файла
int len = filelength(D_f);          // Находим размер файла
int i, j, kol;
kol = len/size;                 //Количество записей в файле
group = new person[kol];
 
        // Считываем записи из файла в динамический массив
for (i=0; i < kol; i++)
fread((group+i), size, 1, Fz);
fclose(Fz);
 
float sred; int sum=0;
        //находим общий средний балл
for (i=0; i < kol; i++)
sum+=group[i].ball;
 
sred=sum/kol;
Memo1->Lines->Add("Общий средний балл: "+FloatToStr(sred));
 
for (i=0; i < kol; i++)
if(group[i].ball>sred)
{
Memo1->Lines->Add("Фамилия: "+AnsiString(group[i].FIO));
Memo1->Lines->Add("Средний балл: "+FloatToStr(group[i].ball));
Memo1->Lines->Add("---------------");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button5Click(TObject *Sender)
{
SaveDialog1->Title="Сохранить файл результатов";
        if (SaveDialog1->Execute()) {
                 AnsiString FileNameRez = SaveDialog1->FileName;
                 Memo1->Lines->SaveToFile(FileNameRez);
        }
}
//---------------------------------------------------------------------------