Ошибка Project3.exe raised exception class $C0000005 with message 'access violation at 0x004068af: read of addre

//---------------------------------------------------------------------------
 
#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.ExtCtrls.hpp>
 
 
 
 
 
#include <string.h>
 
using namespace std;
 
//---------------------------------------------------------------------------
class TForm3 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TPageControl *PageControl1;
    TTabSheet *TabSheet1;
    TListView *ListView1;
    TButton *Read;
    TButton *Write;
    TPanel *Panel2;
    TLabel *Name;
    TEdit *Edit_Name;
    TLabel *Label1;
    TEdit *Edit_Surname;
    TLabel *Label2;
    TLabel *Label3;
    TLabel *Label4;
    TLabel *Label5;
    TLabel *Label6;
    TLabel *Label7;
    TLabel *Label8;
    TLabel *Label9;
    TEdit *Edit_Age;
    TEdit *Edit_Group;
    TEdit *Edit_Course;
    TEdit *Edit_Specialization;
    TEdit *Edit_Experience;
    TEdit *Edit_Degree;
    TEdit *Edit_Subject;
    TButton *Button_Add;
    TCheckBox *Check_Student;
    TCheckBox *Check_Teacher;
    void __fastcall Button_AddClick(TObject *Sender);
 
private:    // User declarations
public:     // User declarations
 
    __fastcall TForm3(TComponent* Owner);
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
 
 
 
 
 
 
 
//---------------------------------------------------------
 
 
class Human {
 
private:
int number;
int age;
AnsiString name;
AnsiString surname;
 
public:
 
int get_number () {return(number);}
void set_number (int number_in) {number = number_in;}
 
int get_age () {return(age);}
void set_age (int age_in) {age = age_in;}
 
AnsiString get_name () {return(name);}
void set_name (string name_in) {name = name_in;}
 
AnsiString get_surname () {return(surname);}
void set_surname (string surname_in) {surname = surname_in;}
 
//------------------------------------------------------------------------------
 
Human();
Human(int Number, int Age, AnsiString Name, AnsiString Surname);
 
 
};
 
 
class Student : public Human{
 
private:
int group;
int course;
AnsiString specialization;
 
public:
 
int get_group () {return(group);}
void set_group (int group_in) {group = group_in;}
 
int get_course () {return(course);}
void set_course (int course_in) {course = course_in;}
 
AnsiString get_specialization () {return(specialization);}
void set_specialization (string specialization_in) {specialization = specialization_in;}
 
//------------------------------------------------------------------------------
 
Student();
 
Student(int Number, int Age, AnsiString Name, AnsiString Surname,
            int Group, int Course, AnsiString Specialization);
 
};
 
 
class Teacher : public Human{
 
private:
int experience;
AnsiString degree;
AnsiString subject;
 
public:
 
int get_experience () {return(experience);}
void set_experience (int experience_in) {experience = experience_in;}
 
AnsiString get_degree () {return(degree);}
void set_degree (string degree_in) {degree = degree_in;}
 
AnsiString get_subject () {return(subject);}
void set_subject (string subject_in) {subject = subject_in;}
 
//------------------------------------------------------------------------------
 
Teacher();
Teacher(int Number, int Age, AnsiString Name, AnsiString Surname,
            int Experience, AnsiString Degree, AnsiString Subject);
 
};
 
 
 
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
#include <string>
#include <iostream>
#include <iomanip>
#include <Math.hpp>
 
//------------------------------------------------------------------------------
 
int write_counter = 0;
//Human **my_array = new Human*[write_counter];
 
Student **Student_Array = new Student*[write_counter];
Teacher **Teacher_Array = new Teacher*[write_counter];
 
//---------------------------------------------------------------------------
 
Human::Human(){
number = -1;
age = 0;
name = "";
surname = "";
};
 
Human::Human(int Number, int Age, AnsiString Name, AnsiString Surname){
 
number = Number;
age = Age;
name = Name;
surname = Surname;
 
}
 
Student::Student():Human(){
 
group = -1;
course = -1;
specialization  = "";
};
 
Student::Student(int Number, int Age, AnsiString Name,
         AnsiString Surname, int Group, int Course, AnsiString Specialization) :
         Human(Number, Age, Name, Surname){
 
group = Group;
course = Course;
specialization = Specialization;
 
};
 
Teacher::Teacher():Human(){
 
experience = -1;
degree = "";
subject = "";
 
};
 
Teacher::Teacher(int Number, int Age, AnsiString Name, AnsiString Surname,
         int Experience, AnsiString Degree, AnsiString Subject):
         Human(Number, Age, Name, Surname){
 
experience = Experience;
degree = Degree;
subject = Subject;
 
};
 
 
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button_AddClick(TObject *Sender)
{
    if (Check_Student->Checked) {
 
    write_counter++;
 
    Student **newArray = new Student*[write_counter];
 
    for (int i = 0; i < write_counter - 1; i++)
    {
    newArray[i] = Student_Array[i];
    }
 
    delete[] Student_Array;
 
    Student_Array = newArray;
 
 // delete[] newArray;
 
 
    Student_Array[write_counter] = new Student(write_counter, StrToInt(Edit_Age->Text.c_str()),
              Edit_Name->Text, Edit_Surname->Text,  StrToInt(Edit_Group->Text.c_str()),
                 StrToInt(Edit_Course->Text.c_str()), Edit_Specialization->Text);
 
    ListView1->Items->Clear();
 
    ShowMessage(Student_Array[write_counter]->get_name());
 
     for (int i = 0; i < write_counter; i++) {
 
        TListItem* item = ListView1->Items->Add();
 
        item->Caption = i + 1;
 
 
        item->SubItems->Add(Student_Array[i]->get_name());
 
    }
 
//ShowMessage("  d");
}
 
}
 
 
/*
    TListItem* item  = dep_lv->Items->Add();
        item->Caption    = rooms[i]->Code();
        item->ImageIndex = rooms[i]->Type();  // индекс иконки совпадает с типом
        item->Data       = (void*)i;              // индекс массива
      sprintf(buf, "%g", rooms[i]->Area());
        item->SubItems->Add(buf);
      sprintf(buf, "%d", rooms[i]->Quant());
        item->SubItems->Add(buf);
      item->SubItems->Add("");
      item->SubItemImages[2] = rooms[i]->Type() == TYPE_LEC &&
                               rooms[i]->Flag() ? 0 : -1;
      item->SubItems->Add("");
      item->SubItemImages[3] = rooms[i]->Type() == TYPE_LAB &&
                               rooms[i]->Flag() ? 0 : -1;
      item->SubItems->Add(AnsiString(itoa(rooms[i]->GetX(), buf, 10)));
      item->SubItems->Add(AnsiString(itoa(rooms[i]->GetY(), buf, 10)));
      item->SubItems->Add(AnsiString(itoa(rooms[i]->GetL(), buf, 10)));
      item->SubItems->Add(AnsiString(itoa(rooms[i]->GetW(), buf, 10)));
        item->SubItems->Add(rooms[i]->Comment());
*/
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
/*void __fastcall TForm3::Button_AddClick(TObject *Sender)
{
 
write_counter++;
 
Human **newArray = new Human*[write_counter];
 
for (int i = 0; i < write_counter - 1; i++)
{
newArray[i] = my_array[i];
}
 
delete[] my_array;
 
my_array = newArray;
 
if (Check_Student->Checked) {
 
    my_array[write_counter] = new Student(write_counter, StrToInt(Edit_Age->Text.c_str()),
              Edit_Name->Text, Edit_Surname->Text,  StrToInt(Edit_Group->Text.c_str()),
                 StrToInt(Edit_Course->Text.c_str()), Edit_Specialization->Text);
 
 *
 write_counter, 2,
              "aa", "dd",  4,
                 6, "gf"
 
                 my_array[write_counter] = new Student(write_counter, StrToInt(Edit_Age->Text.c_str()),
              Edit_Name->Text, Edit_Surname->Text,  StrToInt(Edit_Group->Text.c_str()),
                 StrToInt(Edit_Course->Text.c_str()), Edit_Specialization->Text);  *
 
}
 
else if (Check_Teacher->Checked) {
    my_array[write_counter] = new Teacher(write_counter, StrToInt(Edit_Age->Text.c_str()),
            Edit_Name->Text, Edit_Surname->Text,  StrToInt(Edit_Experience->Text.c_str()),
                Edit_Degree->Text, Edit_Subject->Text);
     }
 
     else {
 
     ShowMessage("Выберите положение");
     }
 
 
 //  ListView1->Items->BeginUpdate();
 ListView1->Items->Clear();
 
     for (int i = 0; i < write_counter; i++) {
 
        TListItem* item = ListView1->Items->Add();
 
        item->Caption = i + 1;
        item->SubItems->Add(my_array[i]->get_name());
//      static_cast<Student*>(my_array[i]);
//      item->SubItems->Add(my_array[i]->static_cast<Student*>(my_array[i])->get_specialization());
 
 
}
 
//static_cast<Student*>(my_array[i])->get_specialization();
 
//ShowMessage(my_array[write_counter]->get_age());
 
delete[] my_array;
}
*/
//-------------------------------------------------------------------------

Student_Array[write_counter] = new ...