TFileStream и Abnormal program termination

class Street
{
public:
    string Contry;
    string City;
    string Street;
};
 
class Adress : public Street
{
public:
    string House;
    string Room;
};
 
class Human
{
public:
    string Imya;
    string Familia;
    string Otchestvo;
    TDateTime Birthday;
    bool Pol;
};
 
class Contact : public Human, public Adress
{
public:
    vector <string> MobilePhone;
    vector <string> HomePhone;
    vector <string> WorkPhone;
};

void __fastcall TForm1::openClick(TObject *Sender)
{
    if (OpenDialog1->Execute()) {
        TFileStream *fs = new TFileStream(OpenDialog1->FileName, fmOpenRead);
        fs->Position = soFromBeginning;
        do {
            Contact temp;
            fs->Read(&temp,sizeof(Contact));
            string a = temp.MobilePhone[0];
            TListItem *Item = ListView1->Items->Add();
            Item->Caption = (temp.Familia + " " + temp.Imya + " " + temp.Otchestvo).c_str();
            Item->SubItems->Add(temp.MobilePhone[0].c_str());
            Item->SubItems->Add(temp.HomePhone[0].c_str());
            Item->SubItems->Add(temp.WorkPhone[0].c_str());
            Item->SubItems->Add((temp.Contry + ", " + temp.City + ", " + temp.Street + " " + temp.House + "-" + temp.Room).c_str());
        } while (fs->Position < fs->Size);
 
        delete fs;
        fs = NULL;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::saveClick(TObject *Sender)
{
    if (SaveDialog1->Execute()) {
        Contact temp2;
        temp2.Familia = "Бакаев";
        temp2.Imya = "Антон";
        temp2.Otchestvo = "Юрьевич";
        temp2.MobilePhone.push_back("+7(953)772-66-97");
        temp2.HomePhone.push_back("+7(4912)57-95-89");
        temp2.WorkPhone.push_back("");
        temp2.Contry = "Россия";
        temp2.City = "Рязань";
        temp2.Street = "Новоселов";
        temp2.House = "56";
        temp2.Room = "11";
 
        TFileStream *fs = new TFileStream(SaveDialog1->FileName, fmCreate);
        fs->Position = soFromBeginning;
        fs->Write(&temp2,sizeof(Contact));
 
        Contact temp1;
 
        temp1.Familia = "Белоусов";
        temp1.Imya = "Сергей";
        temp1.Otchestvo = "Михайлович";
        temp1.MobilePhone.push_back("+7(453)234-23-64");
        temp1.HomePhone.push_back("+7(4912)44-23-53");
        temp1.WorkPhone.push_back("+7(4912)34-23-64");
        temp1.Contry = "Россия";
        temp1.City = "Рязань";
        temp1.Street = "Новоселов";
        temp1.House = "50";
        temp1.Room = "96";
 
        fs->Write(&temp1,sizeof(Contact));
        delete fs;
        fs = NULL;
 
        fs = new TFileStream(SaveDialog1->FileName, fmOpenRead);
        fs->Position = soFromBeginning;
        do {
            Contact temp;
            fs->Read(&temp,sizeof(Contact));
            string a = temp.MobilePhone[0];
            TListItem *Item = ListView1->Items->Add();
            Item->Caption = (temp.Familia + " " + temp.Imya + " " + temp.Otchestvo).c_str();
            Item->SubItems->Add(temp.MobilePhone[0].c_str());
            Item->SubItems->Add(temp.HomePhone[0].c_str());
            Item->SubItems->Add(temp.WorkPhone[0].c_str());
            Item->SubItems->Add((temp.Contry + ", " + temp.City + ", " + temp.Street + " " + temp.House + "-" + temp.Room).c_str());
        } while (fs->Position < fs->Size);
 
        delete fs;
        fs = NULL;
    }
}