void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Graphics::TBitmap *Bmp1 = new Graphics::TBitmap();
   Graphics::TBitmap *Bmp2 = new Graphics::TBitmap();       //sigma = 1.4
   int kernel[] ={0, 1, 1,  2,  2,  2, 1, 1, 0,
                1, 2, 4,  5,  5,  5, 4, 2, 1,
                1, 4, 5,  3,  0,  3, 5, 4, 1,
                2, 5, 3,-12,-24,-12, 3, 5, 2,
                2, 5, 0,-24,-40,-24, 0, 5, 2,
                2, 5, 3,-12,-24,-12, 3, 5, 2,
                1, 4, 5,  3,  0,  3, 5, 4, 1,
                1, 2, 4,  5,  5,  5, 4, 2, 1,
                0, 1, 1,  2,  2,  2, 1, 1, 0};       if(OpenDialog1->Execute())
   {
      Image1->Picture->LoadFromFile(OpenDialog1->FileName);
      Bmp1->LoadFromFile(OpenDialog1->FileName);
   }       int Width = Bmp1->Width;
   int Height = Bmp1->Height;       Bmp2->Width = Width;
   Bmp2->Height = Height;
   Bmp2->PixelFormat = pf24bit;       int *buffer = new int [Height * Width];
   int *result = new int [Height * Width];
   Byte *ptr1, *ptr2;       for(int row = 0; row < Height; row++)
   {
      ptr1 = (Byte *)Bmp1->ScanLine[row];
      //ptr2 = (Byte *)Bmp2->ScanLine[row];          for(int col = 0, k = 0; col < Width * 3; col += 3, k++)
      {
         //因為是Gray 所以RGB三個值都一樣
         buffer[row*Width+k] = ptr1[col];
         //result[row*Width+k] = 500;
      }
   }       //***************Convolution***************
   double value;       for(int row = 4; row < Height - 4; row++)
   {
      for(int col = 4; col < Width - 4; col++)
      {
         // Convolution計算
         value = 0;
         for(int r = -4; r <= 4; r++)
         {
            for(int c = -4; c <= 4; c++)
            {
               value += buffer[(row+r)*Width+col+c] * kernel[(r+4)*9+c+4];
            }
         }
         if(value > 255)
            value = value - 255;
         else if(value < 0)
            value = -value + 255;             result[row*Width+col] = value/40;          } // end of for(col)
   } // end of for(row)       for(int j = 0; j < Height; j++)
   {
      for(int i = 0; i < Width; i++)
         Bmp2->Canvas->Pixels[i][j] = (TColor)RGB(result[j*Width+i], result[j*Width+i], result[j*Width+i]);
   }
   Image2->Canvas->Draw(0, 0, Bmp2);
}

if(value > 255)
   value = 255;
else if(value < 0)
   value = 0;    result[row*Width+col] = value;