Вывести двоичный код файла.

#include <stdlib.h>
#include <conio.h>
#include <vcl.h>
#pragma hdrstop
#include<Fstream.h>
#include <stdio.h>
#include <iostream>
#include <io.h>
#include <fcntl.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void dec2bin(int x)
{
        if (x)
        {
                dec2bin(x/2);
                Memo1->Text=Memo1->Text+(x%2); 
        }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
char buf, fname[100];
OpenDialog1->Title = "-----------"; //надпись окна
 if (OpenDialog1->Execute())
    { 
      FILE *in=fopen(OpenDialog1->FileName.c_str(),"rb");
        while(fread(&buf,1,1,in))
                dec2bin(buf);
        fclose(in);
        
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
//zash = FileCreate(zash);
 
  // if (zash == -1)
   //{
    //  ShowMessage("файл не создан");
   //   //WritePRT("");
    //  Application->Terminate();
   // } else
   // {
   // ShowMessage("файл создан");
      //WritePRT("файл создан");
    //  FileClose(zash);
  // }
    }
 
//---------------------------------------------------------------------------

Memo1->Text=Memo1->Text+(x%2);

FILE *in=fopen(OpenDialog1->FileName.c_str(),"rb");

UnicodeString ustr = OpenDialog1->FileName;
FILE *in=fopen(ustr.c_str(),"rb");