Замена цвета пикселей на черно-белый в выбранном окне

//---------------------------------------------------------------------------
 
#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)
{
HWND hDesktop =GetDesktopWindow();
RECT lpRect;
lpRect.left=0;
lpRect.top=0;
lpRect.right = 1366;
lpRect.bottom = 768;
TileWindows(hDesktop,MDITILE_HORIZONTAL,&lpRect,0,0);        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int R,G,B; COLORREF crColor; int F;
 for(int y=0;y<250;y++)
 for(int x=0;x<250;x++)
 {
    crColor = (COLORREF) Image1->Canvas->Pixels[x][y];
       R=GetRValue(crColor);
       G=GetGValue(crColor);
       B=GetBValue(crColor);
       F = (R+G+B)/3;
    Image1->Canvas->Pixels[x][y] = (TColor) RGB(F,F,F);
 }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (OpenPictureDialog1->Execute())
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); 
}
//---------------------------------------------------------------------------

RegisterHotKey(Handle,0,0,VK_ESCAPE);

UnregisterHotKey(Handle,0);

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
  if (Msg.message == WM_HOTKEY && Msg.wParam == 0)  // если нажата наша клавиша
  {
    TRect WinRect;
    GetWindowRect(GetForegroundWindow(), &WinRect);  // определяем окно на переднем плане (для этого сначала кликали мышью)
    // делаем допущение, что нет окон, "мешающих" выбранному
 
// дальше часть кода не работает, потому закомментирована
// если кликнуть не по окну, то будет закрашиваться весь экран
//  TPoint point;
//  SetCursorPos(&point);  // определяем позицию курсора
 
    // если мы кликнули по окну (а не по "пустоте")
//  if (point.x >= WinRect.left && point.x <= WinRect.right && point.y >= WinRect.top && point.y <= WinRect.bottom)
    {
      HDC__ *Display = CreateDC(L"DISPLAY", NULL, NULL, NULL);  // создаем "контекст устройства" (КУ) под именем DISPLAY
      unsigned long color;
      int R, G, B, F;
      Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
 
      Bitmap->Width = WinRect.Width();
      Bitmap->Height = WinRect.Height();
      // присваиваем битмапу изображение нашего окна
      BitBlt(Bitmap->Canvas->Handle,0,0,Bitmap->Width,Bitmap->Height,GetDC(0),WinRect.left,WinRect.top,SRCCOPY);
 
      for (int i = 0; i <= Bitmap->Width; i++)
        for (int j = 0; j <= Bitmap->Height; j++)
        {
          color = Bitmap->Canvas->Pixels[i][j];  // определяем цвет точек окна
          R = GetRValue(color);
          G = GetGValue(color);
          B = GetBValue(color);
          F = (R + G + B) / 3;
          Bitmap->Canvas->Pixels[i][j] = (TColor) RGB(F, F, F);  // меняем цвет точек
          SetPixel(Display, i+WinRect.left, j+WinRect.top, Bitmap->Canvas->Pixels[i][j]);  // устанавливаем цвет точек
        }
 
      delete Bitmap;
      DeleteDC(Display);  // уничтожаем КУ
    }
  }
}

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
RegisterHotKey( Handle, 333, 0, VK_ESCAPE );
}
//---------------------------------------------------------------------------
#define TIMEWATCH
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
if (Msg.message == WM_HOTKEY)
  switch( Msg.wParam )
  {
  case 333:
    {
    TRect WinRect;
    GetWindowRect(GetForegroundWindow(), &WinRect);  // определяем окно на переднем плане (для этого сначала кликали мышью)
    // делаем допущение, что нет окон, "мешающих" выбранному
 
// дальше часть кода не работает, потому закомментирована
// если кликнуть не по окну, то будет закрашиваться весь экран
//  TPoint point;
//  SetCursorPos(&point);  // определяем позицию курсора
 
    // если мы кликнули по окну (а не по "пустоте")
//  if (point.x >= WinRect.left && point.x <= WinRect.right && point.y >= WinRect.top && point.y <= WinRect.bottom)
//    {
      HDC Display = CreateDC("DISPLAY", NULL, NULL, NULL);  // создаем "контекст устройства" (КУ) под именем DISPLAY
 
      unsigned int color, F; // Если запихать все в size_t, то будет прирост по скорости до нескольких
      char R, G, B;          //  сотен миллисекунд, но памяти потребуется на несколько байт больше. Х)
      Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
 
      Bitmap->Width = WinRect.Width();
      Bitmap->Height = WinRect.Height();
      // присваиваем битмапу изображение нашего окна
      BitBlt( Bitmap->Canvas->Handle, 0, 0, Bitmap->Width, Bitmap->Height,
              GetDC(0), WinRect.left, WinRect.top, SRCCOPY );
#ifdef TIMEWATCH
TTime t, tn = Now().CurrentTime();
#endif
      for (int i = 0; i < Bitmap->Width; i++)
        for (int j = 0; j < Bitmap->Height; j++)
        {
          color = Bitmap->Canvas->Pixels[i][j];  // определяем цвет точек окна
          R = GetRValue(color);
          G = GetGValue(color);
          B = GetBValue(color);
          F = (R + G + B) / 3;
          Bitmap->Canvas->Pixels[i][j] = /*(TColor)*/static_cast<TColor>( RGB(F, F, F) );  // Статическое кастование даст нам еще добрую сотню миллисекунд
          //SetPixel(Display, i+WinRect.left, j+WinRect.top, Bitmap->Canvas->Pixels[i][j]);  // устанавливаем цвет точек
          Application->ProcessMessages(); // Чтобы не висло
        } // Если б мы работали с чужим Bitmap, то для увеличения скорости следовалы бы его канву
          //  заблокировать на время работы цикла: Bitmap->Canvas->Lock()/Unlock()
 
      GetWindowRect(GetForegroundWindow(), &WinRect); // Если вдруг сместилось окно
      BitBlt( Display, WinRect.left, WinRect.top, Bitmap->Width, Bitmap->Height, // Вынесли из цикла
              Bitmap->Canvas->Handle, 0, 0, SRCCOPY);                            //  что уже позволит сократить время обработки более чем на треть
#ifdef TIMEWATCH
t = Now().CurrentTime();
ShowMessage( FormatDateTime( "hh:mm:ss:zzz", t - tn) );
#endif
      delete Bitmap;
      DeleteDC(Display);  // уничтожаем КУ
      }
//    }
  }
}

#include <memory>       //For STL auto_ptr class
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<Graphics::TBitmap> Bitmap(new Graphics::TBitmap);
  std::auto_ptr<Graphics::TBitmap> BigBitmap(new Graphics::TBitmap);
  TRGBTriple *ptr, *bigPtr;   // Use a (byte *) for pf8bit color.
  TPixelFormat pixForm, bigpixForm;
  try
  {
    Bitmap->LoadFromFile("../littlefac.bmp");
    pixForm = Bitmap->PixelFormat;
    bigpixForm  = BigBitmap->PixelFormat;
    Bitmap->PixelFormat = pf24bit;
    BigBitmap->PixelFormat = pf24bit;
    BigBitmap->Height = Bitmap->Height * 2;
    BigBitmap->Width = Bitmap->Width * 2;
    for (int y = 0; y < Bitmap->Height; y++)
    {
      ptr = reinterpret_cast<TRGBTriple *>(Bitmap->ScanLine[y]);
      for (int x = 0; x < Bitmap->Width; x++)
      {
        int bx = x * 2;
        int by = y * 2;
        bigPtr = reinterpret_cast<TRGBTriple *>(BigBitmap->ScanLine[by]);
        bigPtr[bx] = ptr[x];
        bigPtr[bx + 1] = ptr[x];
        bigPtr = reinterpret_cast<TRGBTriple *>(BigBitmap->ScanLine[by + 1]);
        bigPtr[bx] = ptr[x];
        bigPtr[bx + 1] = ptr[x];
      }
    }
    Canvas->Draw(0, 0, Bitmap.get());
    Canvas->Draw(200, 200, BigBitmap.get());
  }
  catch (...)
  {
    ShowMessage("Could not load or alter bitmap");
  }
}