Пери сохранение файла.

    BYTE tmp; // переменная куда будет записываться прочтенный байт
    String temp = ""; // сюда будем записывать HEX значение
    TFileStream *old_file = new TFileStream("c:\\test.bmp", fmOpenRead); // открываем файл для чтения
 
    for(INT64 pos = 0; pos < old_file->Size; pos++) // простой цикл, читаем по 1 байту, пока не кончится файл
    {
        old_file->Position = pos; // ставим позицию для TFileStream 
        old_file->ReadBuffer(&tmp, 1); // читаем с этой позиции в переменную tmp - 1 байт
 
        temp = temp + IntToHex(tmp, 2) + " "; // записываем в строку этот байт в HEX виде
    }
 
    delete old_file; // чистим за собой
    old_file = NULL; // чистим за собой
 
    Memo1->Text = temp; // и кульминация, выводим в TMemo

TStringList* list = new TStringList;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
BYTE tmp; // создаем переменную для записывания прочитанного байта
TFileStream *old_file = new TFileStream("c:\\test.bmp", fmOpenRead); 
 for(INT64 pos = 0; pos < old_file->Size; pos++) 
 {
        old_file->Position = pos; // позиция
        old_file->ReadBuffer(&tmp, 1); //читаем байт 
 
        list->Add(AnsiString(tmp)); /* и я решил что если нету визуализации, то будет все намного быстрее и решил поставить вместо TMemo поставил TStringList :). Просто сама графическая обработка занимает куча ресурсов. А так все проходит очень гладко и быстро)))*/
  }
Memo1->Text = list->Text; /* ну а здесь мы уже выводим содержание но правда уже не в шестнадцатеричном виде, как сделал [b]Gremlin[/b], а в десятичном :). Просто у меня возникли проблемы с обратным переводом))))*/
Memo1->Lines->SaveToFile("c:\\tested.txt"); // а теперь сохраняем для последующего использования) 
delete old_file; // чистим за собой
old_file = NULL; // чистим за собооой
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
BYTE tmp; 
TFileStream *old_file = new TFileStream("c:\\test2.bmp", fmCreate, fmOpenWrite); //создаем файл
Memo1->Lines->LoadFromFile("c:\\tested.txt");  //загружаем файл
for(INT64 pos = 0; pos < Memo1->Lines->Count; pos++) /*здесь может быть ошибка с количеством прохождения цикла, так как у меня мозги не варят по ночам, я мог сделать ошибку :). Но пока что все работало без проблем)) */
{
 tmp = list->Strings[pos].ToInt(); // так как мы выводили полученное значение в начале не в строку, а в каждую строку свой байт)
 old_file->Position = pos; 
 old_file->WriteBuffer(&tmp,1);
}
delete old_file; // чистим за собой
old_file = NULL; // чистим за собой
}