Сделать изображение из цветного BMP файла монохромным

Image1->Picture->Bitmap->Monochrome = true;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Image1->Picture->Bitmap->Monochrome = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

  Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
  Bitmap->Assign(Image1->Picture);
 
  Image2->Canvas->FillRect(Image2->Canvas->ClipRect);
 
  if(Bitmap->PixelFormat == pf24bit)
  {
    Byte *ptr, R, G, B, F;
    for(int y = 0; y < Bitmap->Height; y++)
    {
      ptr = (Byte*)Bitmap->ScanLine[y];
      for (int x = 0; x < Bitmap->Width; x++)
      {
        B = *(ptr + x*3);
        G = *(ptr + x*3+1);
        R = *(ptr + x*3+2);
        F = (R + G + B) / 3;
 
        Bitmap->Canvas->Pixels[x][y]=(TColor) RGB(F, F, F);
      }
    }
    Image2->Canvas->Draw(0, 0, Bitmap);
  }
  delete Bitmap;

        F = (R + G + B) / 3;
        F = F <= 127 ? 0 : 255;
 
        Bitmap->Canvas->Pixels[x][y]=(TColor) RGB(F, F, F);

        F = (R + G + B) / 3;
        if (CheckBox1->Checked)
          F = F <= SpinEdit1->Value ? 0 : 255;
 
        Bitmap->Canvas->Pixels[x][y]=(TColor) RGB(F, F, F);

  Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
  Bitmap->Assign(Image1->Picture);
 
  Image2->Canvas->FillRect(Image2->Canvas->ClipRect);
 
  if(Bitmap->PixelFormat == pf24bit)
  {
    Byte *ptr, R, G, B, F;
    for(int y = 0; y < Bitmap->Height; y++)
    {
      ptr = (Byte*)Bitmap->ScanLine[y];
      for (int x = 0; x < Bitmap->Width; x++)
      {
        B = *(ptr + x*3);
        G = *(ptr + x*3+1);
        R = *(ptr + x*3+2);
        F = (R + G + B) / 3;
 
        Bitmap->Canvas->Pixels[x][y]=(TColor) RGB(F, F, F);
      }
    }
    Image2->Canvas->Draw(0, 0, Bitmap);
  }
  delete Bitmap;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    CBmp New;
    FileHeader *fh;
    MAPINFO *mi;
    RGBquad *rgb;
    New.Open("CAT16.BMP");
    fh=New.GetFH();
    mi=New.GetMapInfo();
    rgb=New.GetMap();
    rgb[256].rgbBlue=255;
    rgb[256].rgbGreen=0;
    rgb[256].rgbRed=0;
    int SR;
    for (int i=0;i<256;i++){
        SR=(rgb[i].rgbBlue+rgb[i].rgbGreen+rgb[i].rgbRed)/3;
        //255 оттенков серого
            rgb[i].rgbBlue=SR;
            rgb[i].rgbGreen=SR;
            rgb[i].rgbRed=SR;
    }
    New.Save("CAT16_.BMP");
 
    String str="",temp;
        str=str+"width="+IntToStr(mi->Width)+"\r\n";
        str=str+"heigth="+IntToStr(mi->Height)+"\r\n";
        str=str+"bit="+IntToStr(mi->BitCount)+"\r\n";
        str=str+"Compress="+IntToStr(mi->Compression)+"\r\n";
        str=str+"Size="+IntToStr(mi->Size)+"\r\n";
        Memo1->Lines->Text ="    характеристики";
        Memo1->Lines->Add(str);
        Image1->Picture->LoadFromFile("CAT16_.bmp");
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Picture->LoadFromFile("CAT16.bmp");
}
//---------------------------------------------------------------------------

#include <io.h>
#include <stdio.h>
#pragma pack(1)
 
struct FileHeader {
    WORD    bfType; 
    DWORD       bfSize;
    WORD    bfReserved1;    
    WORD    bfReserved2;    
    DWORD       bfOffbits;  
};
struct MAPINFO {
    DWORD Size;         
    DWORD Width;            
          DWORD Height;
    WORD Planes;        
    WORD BitCount;    
    DWORD Compression;    
    DWORD SizeImage;    
    long   XPelsPerMeter;
    long   YPelPerMeter; 
    DWORD ClrUsed;    
    DWORD ClrImportant; 
};
 
struct RGBquad {
    BYTE    rgbBlue;         
    BYTE    rgbGreen;         
    BYTE    rgbRed;         
    BYTE    rgbReserved;    
};
 
class CBmp{
private:
    void *pBmp;
    long SizeFile;
public:
    CBmp();
    ~CBmp();
    void Open(char* fn);
    void Save(char* fn);
    FileHeader *GetFH();
    MAPINFO *GetMapInfo();
    RGBquad *GetMap();
};
void CBmp::Save(char* fn){
        FILE* File;
        File=fopen(fn,"wb");
        fwrite(pBmp,1,SizeFile,File);
        fclose(File);
}
RGBquad *CBmp::GetMap(){
    RGBquad *rgb;
    rgb=(RGBquad *)((long)pBmp+sizeof(FileHeader)+sizeof(MAPINFO));
    return rgb;
}
MAPINFO *CBmp::GetMapInfo(){
    MAPINFO *mi;
    mi=(MAPINFO*)((long)pBmp+sizeof(FileHeader));
    return mi;
}
FileHeader *CBmp::GetFH(){
    FileHeader *fh;
    fh=(FileHeader *)pBmp;
    return  fh;
}
CBmp::CBmp(){
    pBmp=0;
    SizeFile=0;
}
CBmp::~CBmp(){
    delete []pBmp;
}
void CBmp::Open(char* fn){
    FILE* File;
        int hFile;
        File=fopen(fn,"rb");
        hFile=_fileno(File);
        SizeFile=filelength(hFile);
        pBmp=(BYTE*)malloc(SizeFile);
        fread(pBmp,1,SizeFile,File);
        fclose(File);
}

Bitmap.SaveToFile("1.bmp");

Image1->Picture->SaveToFile("sample.bmp");

   Bitmap->SaveToFile

Image1->Picture->SaveToFile("sample.bmp");

/* вывод основных характеристик изображения */
    CBmp New;
    MAPINFO *mi;
    mi=New.GetMapInfo();
 
    String str="",temp;
    str=str+"width="+IntToStr(mi->Width)+"\r\n";
    str=str+"heigth="+IntToStr(mi->Height)+"\r\n";
    str=str+"bit="+IntToStr(mi->BitCount)+"\r\n";
    str=str+"Compress="+IntToStr(mi->Compression)+"\r\n";
    str=str+"Size="+IntToStr(mi->Size)+"\r\n";
    Memo1->Lines->Text = "Характеристики изображения";
    Memo1->Lines->Add(str);