Delphi图像处理 -- 图像卷积

procedure TForm1.Button3Click(Sender: TObject);const//  Ray: array[0..8] of Integer = (-1, 0, 1, -1, 0, 1, -1, 0, 1);//  Ray: array[0..8] of Integer = (-1, -1, 0, -1, 0, 1, 0, 1, 1);    Ray: array[0..8] of Integer = (-1, -1, -1, 0, 0, 0, 1, 1, 1);var  bmp: TGpBitmap;  g: TGpGraphics;  data: TImageData;begin  bmp := TGpBitmap.Create('..\media\msn.jpg');  g := TGpGraphics.Create(Canvas.Handle);  g.DrawImage(bmp, 0, 0);  data := LockGpBitmap(bmp);  ImageConvolutionI(Data, Ray);  UnlockGpBitmap(bmp, data);  g.DrawImage(bmp, data.Width, 0);  g.Free;  bmp.Free;end;procedure TForm1.Button3Click(Sender: TObject);con