Исправить ошибки выполнения приложения

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define MASSIVE_SIZE 100
int kol;
int X;
int Z = X + 1;
struct TMagazin
{
        int por_nom;
        String FIO;
        String dom_adr;
        double data_uch;
};
TMagazin Magaz[100];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    for(int i = 0; i < MASSIVE_SIZE; i++)
    {
        for(int j = (i+1); j <= MASSIVE_SIZE; j++)
        {
            if(j >= MASSIVE_SIZE) break;
 
            if(Magaz[j].FIO.Length() > 0 && Magaz[j].dom_adr.Length() > 0 &&
                Magaz[i].dom_adr == Magaz[j].dom_adr)
            {
                Magaz[j].FIO = "";
                Magaz[j].dom_adr = "";
            }
        }
    }
    for(int i = 0; i < MASSIVE_SIZE; i++)
    {
        if(Magaz[i].FIO.Length() > 0 && Magaz[i].dom_adr.Length() > 0)
        {
 
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
kol++;
Magaz[kol].por_nom=StrToInt(Edit1->Text);
Magaz[kol].FIO=Edit2->Text;
Magaz[kol].dom_adr=Edit3->Text;
Magaz[kol].data_uch=StrToFloat(Edit4->Text);
Memo1->Lines->Add(StrToInt(Magaz[kol].por_nom)+" "+Magaz[kol].FIO+" "+Magaz[kol].dom_adr+" "+FloatToStr(Magaz[kol].data_uch));
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
 
int i;
FILE*fdopen=fopen("Данные.txt","a+t");
for(i=0;i<kol;i++)
fprintf(fdopen,"%s%d%d%5.2f \n",Magaz[i].por_nom,Magaz[i].FIO,Magaz[i].dom_adr, Magaz[i].data_uch);
fclose(fdopen);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char*ch = new char[255];
char*sredn = new char[10];
int i =0;
FILE*fdopen =fopen("Данные.txt","rt");
while (fscanf(fdopen,"%s%d%d%d%s",ch, &(Magaz[kol].por_nom), &(Magaz[kol].FIO),&(Magaz[kol].dom_adr),(sredn))!=EOF)
{
Magaz[kol].por_nom=StrToInt(Edit1->Text);
Magaz[kol].FIO=Edit2->Text;
Magaz[kol].dom_adr=Edit3->Text;
Magaz[kol].data_uch=StrToFloat(Edit4->Text);
Memo2->Lines->Add(StrToInt(Magaz[kol].por_nom)+" "+Magaz[kol].FIO+" "+Magaz[kol].dom_adr+" "+FloatToStr(Magaz[kol].data_uch));
kol++;
}
}
//---------------------------------------------------------------------------