Запись бинарного файла Embarcadero XE2

void __fastcall TForm1::Write_pereval()
{
 /**/ f_per=CreateFile("fpereval.dat",GENERIC_WRITE,FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
 if (f_per==INVALID_HANDLE_VALUE) {}
    else {
      SetFilePointer(f_per,0,NULL,FILE_BEGIN);
      WriteFile(f_per,&per,(sizeof(str_pereval)*8),&writed_per,NULL);
      CloseHandle(f_per);
         }  /**/
}

void __fastcall TForm1::StringGrid8SetEditText(TObject *Sender, int ACol,
      int ARow, const AnsiString Value)
{
 if ((ARow==6)||(ARow==7))
 {
 AnsiString p=".";
 AnsiString b=" ";
 
 int m=Value.Pos(p);
 int mb=Value.Pos(b);
 
 if ((m==4)&&(mb==0))
 {
  float d=StrToFloat(Value);
  if ((d>=472.)&&(d<=506.))
  {
  if (ARow==6) mp.d_vv=d;  if (ARow==7) mp.d_vn=d;
  Write_val(ACol);
  }
 }
 }
if ((ARow==8)||(ARow==9))
  {
 
   int nn=StrToIntDef(Value,-1);
   if (nn!=-1)
     {
      if (ARow==8) mp.N_vv=nn;  if (ARow==9) mp.N_vn=nn;
      Write_val(ACol);
     }
  }
}

void __fastcall TForm1::Write_val(int k)
{
/**/ f_per=CreateFile("fpereval.dat",GENERIC_WRITE,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
 if (f_per==INVALID_HANDLE_VALUE) {}
   else {
 SetFilePointer(f_per,(sizeof(str_pereval)*(k-1)),NULL,FILE_BEGIN);
 WriteFile(f_per,&mp,(sizeof(str_pereval)),&writed_per,NULL);
 CloseHandle(f_per);
        }  /**/
}

    ReadFile(f_per,&mp,(sizeof(str_pereval)),&writed_per,NULL);

void __fastcall TForm1::Disp_perev()
{
 int yy=mp.irez[0];
 AnsiString rab;
 if (yy==0) rab="   "; else rab="oп ";
 StringGrid4->Cells[0][is+1]=rab+IntToStr(mp.nk);
 StringGrid4->Cells[1][is+1]=
        FormatDateTime("dd.mm    hh:mm",(mp.t_n));
 StringGrid4->Cells[2][is+1]=
        FormatDateTime("dd.mm    hh:mm",(mp.t_k));
 StringGrid4->Cells[3][is+1]="  "+FloatToStrF((mp.L/1000.),ffFixed,6,0);
 StringGrid4->Cells[4][is+1]="  "+FloatToStrF(mp.P,ffFixed,6,0);
 StringGrid4->Cells[5][is+1]="  "+FloatToStrF(mp.Pm,ffFixed,7,0)+" / "+FloatToStrF(mp.frez[0]/1000,ffFixed,7,1);
 StringGrid4->Cells[6][is+1]="  "+FloatToStrF(mp.Pp,ffFixed,7,0)+" / "+FloatToStrF(mp.frez[1]/1000,ffFixed,7,1);
 StringGrid4->Cells[7][is+1]="  "+FloatToStrF((mp.res_v*100.),ffFixed,7,0)+" / "+FloatToStrF(mp.frez[2]*100,ffFixed,7,0);
 StringGrid4->Cells[8][is+1]=" "+IntToStr(mp.N_vn); //номер нижнего волка
 StringGrid4->Cells[9][is+1]=" "+IntToStr(mp.N_vv);//номер верхнего волка
}

void __fastcall TForm1::Read_pereval()
{                FILE *f_per = fopen ("fpereval.dat","rb");
         fseek(f_per,0,SEEK_SET);
          fread(&per, (sizeof(str_pereval)*8), 1, f_per);
          fclose(f_per);

void __fastcall TForm1::Write_pereval()
{
 FILE *f_per;
 if((f_per=fopen("fpereval.dat", "wb"))==NULL) {
    printf("Не удается открыть файл.\n");
    exit(1);
  }
 
  fwrite(&per, (sizeof(str_pereval)*8), 1, f_per);
 
  fclose(f_per);

typedef struct {
int nk;                 // N клети
int N_vn,N_vv;          //номер валков (нижний, верхний)
float d_vn,d_vv;        // диаметры валков
TDateTime t_n;          // время нач.
TDateTime t_k;          // время кон.
float L;                // длина
float P,Pm,Pp;          // вес, вес тонкого, вес толстого
float kal_n,kal_v;      // калибровки
float res_v;            // ресурс валков
float frez[4];          // резерв
int irez[4];            // резерв
} str_pereval;          // структура данных учета перевалок
 
str_pereval mp0,mp,mp2,per[8];