Конвертация BMP в свой формат

if (OpenPictureDialog1->Execute())  {
Memo1->Clear();
ptrOnBmpFile=fopen(OpenPictureDialog1->FileName.c_str(),"r");
fseek(ptrOnBmpFile, 0, SEEK_SET);
 
fread(&c, 1, 1, ptrOnBmpFile); // определяем что за файл
 
if (c=='B') /*если BMP*/
{
fread(&c, 1, 1, ptrOnBmpFile);
if (c!='M') f=False;
if (f) {
/*тут читаем BMP*/
 
// читаем инфу
Memo1->Lines->Add("Это BMP");
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Размер файла "+IntToStr(dwData)+" byte");
fread(&dwData, 4, 1, ptrOnBmpFile);
fread(&dwData, 4, 1, ptrOnBmpFile);
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Начало данных изображения "+IntToStr(dwData));
fread(&h, 4, 1, ptrOnBmpFile);
fread(&w, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Разрешение "+IntToStr(h)+" x "+IntToStr(w));
fread(&wData, 2, 1, ptrOnBmpFile);
Memo1->Lines->Add("Кол-во плоскостей "+IntToStr(wData));
fread(&size, 2, 1, ptrOnBmpFile);
Memo1->Lines->Add("Кол-во битов на пиксель "+IntToStr(size));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Сжатие "+IntToStr(dwData));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Размер растра в байтах "+IntToStr(dwData));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Гор разреш (пик/метр) "+IntToStr(dwData));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Вер разреш (пик/метр) "+IntToStr(dwData));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Кол-во цветов "+IntToStr(dwData));
fread(&dwData, 4, 1, ptrOnBmpFile);
Memo1->Lines->Add("Кол-во важных цветов "+IntToStr(dwData));
// подгоняем окошко
Image1->Width=h;
Image1->Height=w;
Form1->Width=200+h+24;
if (Image1->Height<Memo1->Height)
{Form1->Height=380;}
else   {Form1->Height=w+73;}
// читаем растр
 
if (size==8)
 {
 Memo1->Lines->Add(IntToStr(ftell(ptrOnBmpFile)));
 fread(pal, 4, 256, ptrOnBmpFile);
 
 Memo1->Lines->Add(IntToStr(ftell(ptrOnBmpFile)));
 
 for (i=w-1;i>=0;i--)
 for (j=0;j<h;j++)
  {
  fread(&ptr,1, 1, ptrOnBmpFile);
  Image1->Canvas->Pixels[j][i]=RGB(pal[ptr].red,pal[ptr].green,pal[ptr].blue);
  }
 Memo1->Lines->Add(IntToStr(ftell(ptrOnBmpFile)));
 }
 else //обработка 24 битных изображений
 {
 Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
  };
   // прочитали )
}

TMemoryStream * pstream = new TMemoryStream;
pstream->Position = 0;
pstream->Write(pId, 2);
pstream->Write(pName, 20);
pstream->Write(pProgname, 8);
pstream->Write(&pTitleSize, 2);
pstream->Write(&pPixCount, 4);
pstream->Write(&pPixRate, 1);
pstream->Write(&pWidth, 4);
pstream->Write(&pFileSize, 8);
pstream->Write(&pRastrSize, 8);
pstream->Write(&pOffset, 4);
// тут всё виснет =(
for (j=0;j<pHeight-1;j++){
for (z=0;z<pWidth-1;h++){
int pOnePixR = GetRValue(Image1->Canvas->Pixels[j][z]);
int pOnePixG = GetGValue(Image1->Canvas->Pixels[j][z]);
int pOnePixB = GetBValue(Image1->Canvas->Pixels[j][z]);
pstream->Write(&pOnePixB, 1);
pstream->Write(&pOnePixG, 1);
pstream->Write(&pOnePixR, 1);
}
}
 
pstream->SaveToFile("D:\myfile.dat");
delete pstream;

TMemoryStream * MS = new TMemoryStream;
Graphics::TBitmap *Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("1.bmp");
 
MS->Position= 0;
MS->Write( /*...*/ );
//...
MS->Write( /*...*/ );
 
Bmp->SaveToStream(MS);
 
MS->SaveToFile("1.mybmp");
delete Bmp,MS;

const size_t offset= 10;
 
TMemoryStream * MS1 = new TMemoryStream;
TMemoryStream * MS2 = new TMemoryStream;
 
MS1->LoadFromFile("1.bmp");
 
//MS2->Write( /.../ );
 
MS1->Position= offset;
MS1->SaveToStream(MS2);
 
MS2->SaveToFile("1.mybmp");
 
delete MS1,MS2;

pstream -> Seek (offset, )

 const size_t offset= 10;
 TMemoryStream * MS1 = new TMemoryStream;
 TFileStream *FD = new TFileStream("2.mybmp",fmCreate|fmOpenWrite) ;
 MS1->LoadFromFile("1.bmp");
  int dl = MS1->Size ;
  UCHAR *buuf = new UCHAR[dl+8];
  MS1->Seek(0,0);
  MS1->ReadBuffer( buuf,dl);
  FD->WriteBuffer( buuf+offset,dl-offset);
 delete MS1 ;
 delete FD ;

#include <windows.h>
#include <iostream>
#include <fstream>
//---------------------------------------------------------------------------
struct
{
 char somefield[64];
 
} my_header;
//---------------------------------------------------------------------------
int main()
{
system("chcp 1251");
using namespace std;
 
ifstream ifs("1.bmp");
ofstream ofs("1.mybmp");
 
BITMAPFILEHEADER bmp_header;
 
if( ifs && ofs )
 {
    ifs.read( (char*)&bmp_header,sizeof(bmp_header));
 
    cout<< bmp_header.bfSize <<endl;
    cout<< bmp_header.bfOffBits<<endl;
 
    strcpy(my_header.somefield,"My Bitmap Format");
 
        ifs.seekg(bmp_header.bfOffBits,ios::cur);
 
    ofs.write((char*)&my_header,sizeof(my_header));
    ofs<<ifs.rdbuf();
 }
else cerr<<"error!!!"<<endl;
 
system("pause");
return 0;
}

char *pId, *pName,*pProgname;
DWORD pOffset, pTitleSize, pPixCount, pPixRate, pWidth, pFileSize, pHeight, pRastrSize,z;
 
pId = "PA";
pName = "Alexander Parphenuyk";
pProgname = "GiMS";
pTitleSize = 61;
pPixCount = Image1->Picture->Width*Image1->Picture->Height;
pPixRate = 24;
pWidth =  Image1->Picture->Width;
pHeight =  Image1->Picture->Height;
pFileSize = pPixCount * pPixRate + pTitleSize;
pRastrSize = pPixCount * pPixRate;
pOffset = pTitleSize + 1;
 
ptrOnPaiFile=fopen(SavePictureDialog1->FileName.c_str(),"wb");
 
fwrite(pId,2,1,ptrOnPaiFile);
fwrite(pName,20,1,ptrOnPaiFile);
fwrite(pProgname,8,1,ptrOnPaiFile);
fwrite(&pTitleSize,2,1,ptrOnPaiFile);
fwrite(&pPixCount,4,1,ptrOnPaiFile);
fwrite(&pPixRate,1,1,ptrOnPaiFile);
fwrite(&pWidth,4,1,ptrOnPaiFile);
fwrite(&pFileSize,8,1,ptrOnPaiFile);
fwrite(&pRastrSize,8,1,ptrOnPaiFile);
fwrite(&pOffset,4,1,ptrOnPaiFile);
 
int paipix;
int paiWidth = pWidth;
int paiHeight = pHeight;
 
 for (i=paiHeight-1;i>=0;i--)
 for (j=0;j<paiWidth;j++)
  {
  paipix = Image1->Canvas->Pixels[j][i];
  fwrite(&paipix, 3, 1, ptrOnPaiFile);
  }
 }

fwrite(pId,2,1,ptrOnPaiFile);
fwrite(pName,20,1,ptrOnPaiFile);
fwrite(pProgname,8,1,ptrOnPaiFile);
fwrite(&pTitleSize,2,1,ptrOnPaiFile);
fwrite(&pPixCount,4,1,ptrOnPaiFile)

 paipix = Image1->Canvas->Pixels[j][i];
  fwrite(&paipix, 3, 1, ptrOnPaiFile);