Работа с файлами. Открыть файл в двоичном коде.

#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
#include <fstream.h>
#include "Unit1.h"
//------------------------------------------------------------------------
TForm1 *Form1;
//------------------------------------------------------------------------
AnsiString Int_To_StrBin(int A)
  {
  AnsiString S, S1;
  int I = 1;
 
  if (A == 0) S = "0";
 
  while(A > 0)
    {
    S = S + char((A % 2) + 48); A = A/2;
    if ((I % 4) == 0) S = S + " "; I++;
    }
 
  if ((S.Length() % 5) == 1) S = S + "000 ";
  if ((S.Length() % 5) == 2) S = S + "00 ";
  if ((S.Length() % 5) == 3) S = S + "0 ";
 
  for (int I = 1; I < (S.Length() + 1); I++)
    {
    S1 = S1 + S[S.Length() + 1 - I];
    }
 
  return S1;
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
Form1->OpenDialog1->Title="Выбрать файл";
Form1->OpenDialog1->Execute();
Form1->Edit1->Text=(Form1->OpenDialog1->FileName);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
AnsiString FileName = Form1->OpenDialog1->FileName;
ifstream fin(FileName.c_str(), ios::binary);
     if ( !fin )
        {
         ShowMessage ("Нету файла!");
        }
char aa;
   while(fin.get(aa))
        {
         Memo1->SelText = Int_To_StrBin(aa);
 
        }
 
}

String Text;
//...
   while(fin.get(aa))
        {
         Text += Int_To_StrBin(aa);
        }
Memo1->Text = Text;
//...