Робота с файлами С++

[Ira20]

Здравствуйте. Хочу Вас попросить о помощи. Мне нужно открыть любой файл с компьютера в двоичном коде. Я нашла на форуме часть программы, но она открывает очень маленькие файлы, а при больших начинает виснуть. Может кто знает как это исправить? Вот код

#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);

        }

}

[Hacker19_90]

а при больших начинает виснуть. Может кто знает как это исправить?

Реализовать с помощью потоков!

[Ira20]

C потоками это открыть пустой файл и у него переписать а затем вывести его содержимое? Извините что спрашиваю, но я не понимаю как..А как-то по другому нельзя?