Graphics::TBitmap* BMP = new Graphics::TBitmap();
  BMP->LoadFromFile("1.bmp");
  Byte* ptr = NULL;
  for (int y=0; yHeight; y  )
  {
    ptr=(Byte*)BMP->ScanLine[y];
    for (int x=0; xWidth; x  )
    {
      if (ptr[x*3]>=100 && ptr[x*3]<=125)
      {
        ptr[x*3]=0;
        ptr[x*3 1]=0;
        ptr[x*3 2]=0;
      }
      else
      {
        ptr[x*3]=ptr[x*3];
        ptr[x*3 1]=ptr[x*3 1];
        ptr[x*3 2]=ptr[x*3 2];
      }
    }
  }
  Image1->Picture->Assign(BMP);
  delete BMP;