Canvas Blend

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int z,c;
z=Image2->Left-Image1->Left;
c=Image2->Top-Image1->Top;
Graphics::TBitmap*b=new Graphics::TBitmap();
b->LoadFromFile("1.bmp");
 
for (int x=z;x<z+200;x++)//перебор по горизонтали//Image2 200*200
{
 for (int y=c;y<c+200;y++)
 {
  int red = (GetRValue(Image1->Canvas->Pixels[x][y])); // красная составляющая
  int green = (GetGValue(Image1->Canvas->Pixels[x][y])); // зеленая составляющая
  int blue = (GetBValue(Image1->Canvas->Pixels[x][y])); // синяя составляющая
  int red1 = (GetRValue(b->Canvas->Pixels[x-z][y-c]));
  int green1 = (GetGValue(b->Canvas->Pixels[x-z][y-c]));
  int blue1 = (GetBValue(b->Canvas->Pixels[x-z][y-c]));
  red=(red+red1)/2;//так тока для 50%
  green=(green+green1)/2;
  blue=(blue+blue1)/2;
  Image2->Canvas->Pixels[x-z][y-c] = (TColor)RGB(red,green,blue);//рисуем
 }
}
delete b;
}