Чтение бинарного файла

void __fastcall TfData::BitBtn1Click(TObject *Sender)
{
FILE *fi;
char s[80];
Memo1->Clear();
 
AnsiString NameFile;
OpenDialogRDF->Title = "Открытие файла";
OpenDialogRDF->Options.Clear();
OpenDialogRDF->Options << ofAllowMultiSelect << ofFileMustExist;
OpenDialogRDF->Filter = "Fly files (*.dat)|*dat|All files (*.*)|*.*";
OpenDialogRDF->FilterIndex = 0; // start the dialog showing rdf files
 
if (OpenDialogRDF->Execute())
{
 NameFile = OpenDialogRDF->FileName.c_str();
 Edit1->Text = NameFile;
 
   if ((fi = fopen(NameFile.c_str(), "rb"))!=NULL)
   {
     ifstream infile(NameFile.c_str());
     while(!infile.eof())
     {
     infile.getline(s,80);
     Memo1->Lines->Add(s);
     }
     infile.close();
   }
 
   else if ((fi = fopen(NameFile.c_str(), "rb")) == NULL)
   {
   ShowMessage("Файл не удается открыть");
   return;
   }
}
}

...->SaveToFile(L"Привет медвед");
...->SaveToFile(WideString("Привет медвед"));

Memo1->Lines->LoadFromFile(OpenDialogRDF->FileName,Sysutils::TEncoding::UTF8);

struct StructName
{
     Param Param1;
};

nfile.getline(s,80);
     Memo1->Lines->Add(s);