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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 
int FileName;
 
OpenDialog1->Title = "-----------"; //надпись окна
  if (OpenDialog1->Execute())
    {
      if (FileExists(OpenDialog1->FileName));
             
       
          Memo1->Clear();
          Memo1->Lines->Add(FileName);//вывод в мемо1
          Memo2->Clear();
          Memo2->Lines->Add();

OpenDialog1->Execute();
ini=fopen(OpenDialog1->FileName,"X+b");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 
FILE *ini;
 
OpenDialog1->Title = "-----------"; //íàäïèñü îêíà
  OpenDialog1->Execute();
  ini=fopen(OpenDialog1->FileName,"r");
   {
   ShowMessage("ôàéë íå ïðî÷èòàí");
   } else
   {
fwrite
 
          Memo1->Clear();
          Memo1->Lines->Add(ini);//âûâîä â ìåìî1
 
}
  }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
FILE *ini;
 
OpenDialog1->Title = "-----------"; 
OpenDialog1->Execute();
ini=fopen(OpenDialog1->FileName,"rb"); //вот тут ошибка
 
 
Memo1->Clear();
Memo1->Lines->Add(ini);//вывод в мемо1
 
}
  }

void dec2bin(int x)
{
        if (x)
        {
                dec2bin(x/2);
                printf("%i", x%2);
        }
}