При втором запуске программы файлы не загружаются в программу

        int nomer;
        int age;
        int rost;
        int ves;
    }TKom;
TKom Kom[100];
int nzap=0;
FILE *Fs;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
OpenDialog1->Title="Naw File";
if(OpenDialog1->Execute())
{
 char *FileNameS= OpenDialog1->FileName.c_str();
  if((Fs=fopen(FileNameS,"wb"))==NULL) {
  ShowMessage("File no created");
  return;}
}        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
fclose(Fs);        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Kom[nzap].strana=Edit1->Text;
strcpy(Kom[nzap].komanda,Edit2->Text.c_str());
Kom[nzap].fio=Edit3->Text;
Kom[nzap].nomer=StrToInt(Edit6->Text);
Kom[nzap].age=StrToInt(Edit9->Text);
Kom[nzap].rost=StrToInt(Edit12->Text);
Kom[nzap].ves=StrToInt(Edit15->Text);
Memo1->Lines->Add(AnsiString(Kom[nzap].strana)+" "+
                  AnsiString(Kom[nzap].komanda)+" "+
                  AnsiString(Kom[nzap].fio)+" номер "+
                  IntToStr(Kom[nzap].nomer)+" возраст "+
                  IntToStr(Kom[nzap].age)+" рост "+
                  IntToStr(Kom[nzap].rost)+" вес "+
                  IntToStr(Kom[nzap].ves));
fwrite(&Kom[nzap],sizeof(TKom),1,Fs);
nzap++;
Edit3->Clear();
Edit6->Clear();
Edit9->Clear();
Edit12->Clear();
Edit15->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
OpenDialog1->Title="Open File";
if (OpenDialog1->Execute())
{
 char *FileNameS= OpenDialog1->FileName.c_str();
 if ((Fs=fopen(FileNameS,"rb"))==NULL) {
  ShowMessage("File is not Opened");
  return; }
 
  nzap=0;
  do
  {
   fread(&Kom[nzap],sizeof(TKom),1,Fs);
   if(feof(Fs)) break;
   Memo1->Lines->Add(AnsiString(Kom[nzap].strana)+" "+
                  AnsiString(Kom[nzap].komanda)+" "+
                  AnsiString(Kom[nzap].fio)+" номер "+
                  IntToStr(Kom[nzap].nomer)+" возраст "+
                  IntToStr(Kom[nzap].age)+" рост "+
                  IntToStr(Kom[nzap].rost)+" вес "+
                  IntToStr(Kom[nzap].ves) );
  }
  while(True);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
SaveDialog1->Title="Save File";
if (SaveDialog1->Execute())
{
 AnsiString FileNameR = SaveDialog1 -> FileName;
 Memo1->Lines->SaveToFile(FileNameR);
}        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 Memo1->Lines->Add(" ");
 int a=Kom[0].age+Kom[1].age+Kom[2].age;
 int b=Kom[3].age+Kom[4].age+Kom[5].age;
 int c=Kom[6].age+Kom[7].age+Kom[8].age;
 if ((a<b)&(a<c)) Memo1->Lines->Add("Cамая молодая команда "+AnsiString(Kom[0].komanda));
 if ((b<a)&(b<c)) Memo1->Lines->Add("Cамая молодая команда "+AnsiString(Kom[3].komanda));
 if ((c<b)&(c<b)) Memo1->Lines->Add("Cамая молодая команда "+AnsiString(Kom[6].komanda));
}
//---------------------------------------------------------------------------