Чтение структуры из файла

#include <vcl.h>
#include <stdio.h>
#include <DateUtils.hpp>
#include <Sysutils.hpp>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
bool flag=0;
FILE *f;
char s[]="DB-1 VT5491N_6IN_m_4_150.def";
struct kab{
 char NameFileTop[92];
 unsigned __int16 VersionVedom[2];
 unsigned __int16 Date[3];
}b;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
           Memo1->Lines->Clear();
if ( (f=fopen(s,"rb+"))==NULL )  { ShowMessage("Файла нет!");return;}
 
int i=2;
while(fread(&b,sizeof(kab),1,f))
  {
           Memo1->Lines->Add(AnsiString(b.NameFileTop)+"  "+AnsiString(b.VersionVedom[2])+"  "+AnsiString(b.Date[3])+"    ");
  i++;
  }
fclose(f);
}

    Memo1->Lines->Add(String().sprintf("Date = %u\.%u\.%u",
                  (USHORT)DataPattern.Data.sDate[0],
                  (USHORT)DataPattern.Data.sDate[1],
                  (USHORT)DataPattern.Data.sDate[2]));
    Memo1->Lines->Add(String().sprintf("Count_Def = %u",
                  (UINT)DataPattern.Data.Count_Def));
    Memo1->Lines->Add(String().sprintf("VersionVedom = %u\.%u",
                  (UINT)DataPattern.Data.VersionVedom[0],
                  (UINT)DataPattern.Data.VersionVedom[1]));
    Memo1->Lines->Add(String().sprintf("NameFileTop = %s",
                        DataPattern.Data.NameFileTop));
    Memo1->Lines->Add(String().sprintf("NameTop = %s",
                        DataPattern.Data.NameTop));