При попытке присвоить полям новой структуры значений типа AnsiString появляется ошибка Access Violation

 struct zapis{
   AnsiString name;
   AnsiString prof;
   AnsiString rekviz;
   AnsiString nzak;
   int cost;
   TDate dt;
   struct zapis *next;
   struct zapis *prior;
};
 
struct zapis *start;
struct zapis *last;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 zapis *info,*old;
 
  if(Edit1->Text=="" || Edit2->Text=="" || Edit3->Text=="" || Edit4->Text=="" || Edit5->Text=="")
   {
     ShowMessage("Заполните все поля!");
     return;
   }
 
   info=(struct zapis *)malloc(sizeof(struct zapis));
   if (!info)
   {
     ShowMessage("Нет свободной памяти!");
     return;
   }
   info->name=Edit1->Text;
   info->prof=Edit2->Text;           //Ошибка указывает на эту строку, если ее закоментировать укажет на следующую.
   info->rekviz=Edit3->Text;       
   info->nzak=Edit4->Text;
   info->cost=StrToInt(Edit5->Text);
   info->dt=DateTimePicker1->Date;
 
}