Обращение к массиву Edit

TForm1 *Form1;
//---------------------------------------------------------------------------
 
.....
 
TEdit *ShiftEdit[3];

void PlaceElements() //размещение элементов
.....
    int j;
    for (j = 0; j < 4; j++) { 
 
.....
        ShiftEdit[j]=new TEdit(Form1);
        ShiftEdit[j]->Parent=Form1->PageControl1->Pages[j+1];
        ShiftEdit[j]->Text = ""; ShiftEdit[j]->Font->Size=12; ShiftEdit[j]->Width=100;
 
        ShiftEdit[j]->Top=br; l->Left=br; l->Top=(ShiftEdit[j]->Height-l->Height)/2+ShiftEdit[j]->Top;
.....

ShiftEdit[0]->Text="fdwiuywer";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ShiftEdit[0]->Text="fdwiuywer2";
}

fwrite(ShiftEdit[i]->Text.c_str(), ShiftEdit[i]->Text.Length(), 1, fp);

fwrite(AnsiString(ShiftEdit[i]->Text).c_str(), ShiftEdit[i]->Text.Length(), 1, fp);

wchar_t c;
...
for (int j = 0; j < L; j++) {
c=ShiftEdit[i]->Text[j+1];
fwrite(&c,2, 1, fp);
            }

\\запись
FILE *fp=fopen("c:\\file.dat", "wb+");
byte L = Edit1->Text.Length();
fwrite(&L, 1, 1, fp);
fwrite(AnsiString(Edit1->Text).c_str(), Edit1->Text.Length(), 1, fp);
fclose(fp);
 
\\чтение
fp=fopen("c:\\file.dat", "rb");
fread(&L, 1, 1, fp);
char str[256];
fread(str, L, 1, fp);
str[L] = 0;
Edit2->Text = AnsiString(str);

\\записьFILE *fp=fopen("c:\\file.dat", "wb+");
byte L = Edit1->Text.Length();
fwrite(&L, 1, 1, fp);
fwrite(Edit1->Text.c_str(), Edit1->Text.Length() * 2, 1, fp);
fclose(fp);
 
\\чтение
fp=fopen("c:\\file.dat", "rb");
fread(&L, 1, 1, fp);
wchar_t str[256];
fread(str, L * 2, 1, fp);
str[L] = 0;
Edit2->Text = AnsiString(str);

FILE *fp=fopen("c:\\file.dat", "wb+");
fwrite(Edit1->Text.c_str(), (Edit1->Text.Length() + 1) * 2, 1, fp);
fclose(fp);
 
 
fp=fopen("c:\\file.dat", "rb");
wchar_t str[256];
fread(str, 512, 1, fp);
Edit2->Text = AnsiString(str);