Чтение заголовка bmp и перевод изображения в серые тона

   if (OPD1->Execute())
   {
        Edit1->Text = OPD1->FileName;
        Image1->Picture->LoadFromFile(OPD1->FileName);
   }

BOOL GrayScale(HDC hDC, LPRECT pRC, HWND hWndCallback)//HDC hDC - что это и откуда это нужно брать?
{
    BITMAPINFO BMI = { 0 };
    HDC hTmpDC; 
    HBITMAP hOldBitmap, hTmpBitmap;
    ULONG lBytesCnt;
    LPBYTE pPixels;
    LONG i, j, lColor, lR, lG, lB, lS;
 
    volatile ONPROGRESSPARAMS ONPP = { 0 };
 
    USHORT BPP = GetDeviceCaps(hDC, BITSPIXEL);// тоже не понятно, что здесь делается (msdn есть, но с английский у меня проблема, не могу разобраться... и т.д.)
 
    if ((BPP != 24) && (BPP != 32)) return FALSE;
    if (GetObjectType(hDC) != OBJ_DC) return FALSE;
 
    LONG W = GetDeviceCaps(hDC, HORZRES);
    LONG H = GetDeviceCaps(hDC, VERTRES);
 
    switch (BPP)
    {
        case 24:
            lBytesCnt = (((BPP / 8) * W + 3) / 4) * 4;
            lBytesCnt += ((lBytesCnt * H + 3) / 4) * 4;
            break;
        case 32:
            lBytesCnt = W * H * (BPP / 8);
            break;
    }
 
    pPixels = new BYTE[lBytesCnt];
 
    hTmpDC = CreateCompatibleDC(hDC);
    hTmpBitmap = CreateCompatibleBitmap(hDC, W, H);
    hOldBitmap = (HBITMAP)SelectObject(hTmpDC, hTmpBitmap);
    BitBlt(hTmpDC, 0, 0, W, H, hDC, 0, 0, SRCCOPY);
 
    BMI.bmiHeader.biSize = sizeof(BMI.bmiHeader);
    BMI.bmiHeader.biWidth = W;
    BMI.bmiHeader.biHeight = H;
    BMI.bmiHeader.biPlanes = 1;
    BMI.bmiHeader.biBitCount = BPP;
    BMI.bmiHeader.biCompression = BI_RGB;
    GetDIBits(hTmpDC, hTmpBitmap, 0, H, pPixels, &BMI, DIB_RGB_COLORS);
 
    for (j = pRC->top; j < pRC->bottom; j++)
    {
        for (i = pRC->left; i < pRC->right; i++)
        {
            lColor = GetPixel(pPixels, &BMI, i, j);
 
            //BGR -> RGB
            lR = R_BGR(lColor);
            lG = G_BGR(lColor);
            lB = B_BGR(lColor);
 
            lS = (LONG)(lR * 0.299 + lG * 0.587 + lB * 0.114);
 
            //SSS -> BGR
            SetPixel(pPixels, &BMI, i, j, BGR(lS, lS, lS));
        }
        if (hWndCallback)
        {
            ONPP.dwPercents = (DWORD)(((double)j / (double)pRC->bottom) * 100);
            SendMessage(hWndCallback, WM_GRAPHICSEVENT, MAKEWPARAM(EVENT_ON_PROGRESS, 0),
                (LPARAM)&ONPP);
        }
    }
 
    StretchDIBits(hDC, 0, 0, W, H, 0, 0, W, H, pPixels, &BMI,
        DIB_RGB_COLORS, SRCCOPY);
 
    SelectObject(hTmpDC, hOldBitmap);
    DeleteObject(hTmpBitmap);
    DeleteDC(hTmpDC);
    delete[] pPixels;
    return TRUE;
}

My_picture->LoadFromFile("Point_drawing.bmp");
    My_picture->Monochrome = true;

        Graphics::TBitmap* bmp1;// так определен bmp1
        
         ...
  
        bmp1->LoadFromFile(Edit1->Text);
        bmp1->Monochrome = true;
        Image2->Picture = bmp1;

Graphics::TBitmap *bmp1;// так определен bmp1
 
        bmp1 = new Graphics::TBitmap();
        bmp1->LoadFromFile("Point_drawing.bmp");
        bmp1->Monochrome = true;
        Image1->Picture->Assign(bmp1);
 
 
 bmp1->Graphics::~TBitmap();

Graphics::TBitmap *bmp1;// так определен bmp1
 
        bmp1 = new Graphics::TBitmap();
        bmp1->LoadFromFile("Point_drawing.bmp");
        bmp1->PixelFormat = pf24bit; //
 
    for(int i = 0; i < bmp1->Width; i++)
    {
      for(int j=0; j < bmp1->Height; j++)
      {
        TColor PixColor = bmp1->Canvas->Pixels[i][j];
        byte GrayC = ((0.382 * GetRValue(PixColor)) +
                      (0.618 * GetGValue(PixColor)) +
                      (0.236 * GetBValue(PixColor )));
         bmp1->Canvas->Pixels[i][j]=RGB(GrayC,GrayC,GrayC);
      }
    }
 
    Image1->Picture->Assign(bmp1);
    bmp1->Graphics::~TBitmap();

TColor PixColor = bmp1->Canvas->Pixels[i][j];
        byte GrayC = ((0.382 * GetRValue(PixColor)) +
                      (0.618 * GetGValue(PixColor)) +
                      (0.236 * GetBValue(PixColor )));
         bmp1->Canvas->Pixels[i][j]=RGB(GrayC,GrayC,GrayC);

byte GrayC = ((0.299 * GetRValue(PixColor)) +
                      (0.587 * GetGValue(PixColor)) +
                      (0.114 * GetBValue(PixColor )));

Graphics::TBitmap *bmp1 = new Graphics::TBitmap();
 
    bmp1->LoadFromFile("Point_drawing.bmp");
 
Image1->Picture->Assign(bmp1);
 
    bmp1->PixelFormat = pf24bit;
 
    int PixCol;
    for(int x = 0; x < bmp1->Width; x++)
    {
      for(int y = 0; y < bmp1->Height; y++)
      {
         PixCol = GetRValue(bmp1->Canvas->Pixels[x][y]) +
                  GetGValue(bmp1->Canvas->Pixels[x][y]) +
                  GetBValue(bmp1->Canvas->Pixels[x][y]);
         PixCol /= 3;
         //PixCol *= 0.618;
         //для изменения яркости от 0 до 1 PixCol = Edit->Text; можно и Timer
 
 
         bmp1->Canvas->Pixels[x][y]=(TColor)RGB(PixCol, PixCol, PixCol);
      }
    }
//////////////////////////////////////////
//                                      //
//           |^^^пиво^^||""\_,_         //
//           |___________||__|__|)      //
//           (@)(@)""*|(@)(@)**(@)      //
//                                      //
//////////////////////////////////////////
 
Image2->Picture->Assign(bmp1);
    bmp1->Graphics::~TBitmap();

bmp1->Monochrome = true;

 BITMAPINFOHEADER bmih;
 BITMAPFILEHEADER bmfh;

bmih.biWidth;

Graphics::TBitmap *bmp1 = new Graphics::TBitmap();

Image1->Picture->LoadFromFile(OPD1->FileName);

for(int n; n < DlinaStenu; n++)
    {
        Memo1->Lines->AddObject(text[n], bmp[n]);
    }
 
    delete [] tex;
    delete [] bmp;