Скачать с CD/DVD инфо в битах.

RichEdit1->Lines->LoadFromFile(OpenDialog2->FileName);

 
TMemoryStream *str=new TMemoryStream;
 str->LoadFromFile("E:\\test.exe"); //Файл, который мы загружаем
 char *buffer;
 buffer=new char[str->Size];
 str->ReadBuffer(buffer,str->Size); //Считаваем информацию
 delete str;
 RichEdit1->Text=buffer; //Выводим в RichEdit1
 delete [] buffer;

TMemoryStream *str=new TMemoryStream;
 str->LoadFromFile("E:\\test.exe");
 char *buffer;
 buffer=new char[str->Size];
 str->ReadBuffer(buffer,str->Size); 
 
 //RichEdit1->Text=buffer; 
 for(int i=0;i<str->Size;i++){
 RichEdit1->SelText=buffer[i];
 Application->ProcessMessage();
 }
 delete [] buffer;   delete str;

#include <fstream>
#include <bitset>
//----------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::ifstream ifs( "f_0101.bin", std::ios::binary );
    std::ofstream ofs( "f_0101.txt" );
 
    BYTE c;
    typedef _STL::bitset<8> C;
    while ( ifs >> c ) ofs <<  C(c) << '\n';
 
    ofs.close();
    ifs.close();
}
//----------------------------------------------------------------------

//----------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    RichEdit1->Lines->LoadFromFile("f_0101.txt");
}
//----------------------------------------------------------------------

    std::bitset<8> bs;     
    std::stringstream ss;
    while ( ifs >> c ) ss << (bs = c) << '\n';
    RichEdit1->Text = ss.str().c_str()

    RichEdit1->Lines->BeginUpdate();
    RichEdit1->Text = ss.str().c_str();
    RichEdit1->Lines->EndUpdate();

    std::ifstream ifs( "E:\\001 Snap-The power.mp3", std::ios::binary );
    unsigned char c;
    std::stringstream ss;
    while ( ifs >> c ) ss << (c&0xff) << ' ';
    ifs.close();