Матричные фильтры обработки изображений

[Михаил22042016]

в общем в результате должна увеличиться резкость, убраться мыло, местами даже контур появиться.
а получается в место контуров..., трудно описать, картинку покажу...
помогите пожалуйста разобраться почему результате цветная абра-кадабра
можно подключить как модуль

unit fMatrix;
interface
uses Winapi.Windows, System.Classes,System.SysUtils, Vcl.Graphics;
function Matrix(iBM:TBitmap):TBitmap;
implementation
function Matrix(iBM:TBitmap):TBitmap;
type
  PixelRGB = packed record b,g,r: byte; end;
  tXarray = array[-2..2] of PixelRGB;
  Xarray = ^tXarray;
  YXarray = array of Xarray;
const
  Z : Integer = 8;
  Mtr: array [0..8] of Integer = (-1,-1,-1,
                                  -1,16,-1,
                                  -1,-1,-1);
var
  BufBM:TBitmap;
  x, y: Integer;
  siBM,sBufBM: YXarray;  // сканы
begin
try
  try
    BufBM:= TBitmap.Create;
    BufBM.Width:=iBM.Width;
    BufBM.Height:=iBM.Height;
  ////////////////// копирование ////////////////////
    BufBM.Canvas.CopyRect(rect(Point(0,0),Point(iBM.Width,iBM.Height)),// размер копируемой области
    iBM.Canvas,                                         // Bitmap.Canvas откуда копировать (именно Bitmap.Canvas)
    rect(Point(0,0),Point(iBM.Width,iBM.Height))); // координаты копируемого прямоугольника в источнике
  ///////////////////////////////////////////////////
    BufBM.PixelFormat:= pf24bit;
    iBM.PixelFormat  := pf24bit;
    SetLength(siBM,iBM.Height);
    SetLength(sBufBM ,BufBM.Height);
    for y := 0 to BufBM.Height-1 do
    begin
      siBM[y]  := iBM  .ScanLine[y];
      sBufBM[y]:= BufBM.ScanLine[y];
    end;
    for y := 1 to (iBM.Height-2) do
    begin
      for x := 1 to (iBM.Width-2) do
      begin
        siBM[y][x].r:=  ((sBufBM[y-1][x-1].r*mtr[0])+(sBufBM[y-1][x].r*mtr[1])+(sBufBM[y-1][x+1].r*mtr[2])
                       + (sBufBM[y  ][x-1].r*mtr[3])+(sBufBM[y  ][x].r*mtr[4])+(sBufBM[y  ][x+1].r*mtr[5])
                       + (sBufBM[y+1][x-1].r*mtr[6])+(sBufBM[y+1][x].r*mtr[7])+(sBufBM[y+1][x+1].r*mtr[8]))div Z;
        siBM[y][x].g:=  ((sBufBM[y-1][x-1].g*mtr[0])+(sBufBM[y-1][x].g*mtr[1])+(sBufBM[y-1][x+1].g*mtr[2])
                       + (sBufBM[y  ][x-1].g*mtr[3])+(sBufBM[y  ][x].g*mtr[4])+(sBufBM[y  ][x+1].g*mtr[5])
                       + (sBufBM[y+1][x-1].g*mtr[6])+(sBufBM[y+1][x].g*mtr[7])+(sBufBM[y+1][x+1].g*mtr[8]))div Z;
        siBM[y][x].b:=  ((sBufBM[y-1][x-1].b*mtr[0])+(sBufBM[y-1][x].b*mtr[1])+(sBufBM[y-1][x+1].b*mtr[2])
                       + (sBufBM[y  ][x-1].b*mtr[3])+(sBufBM[y  ][x].b*mtr[4])+(sBufBM[y  ][x+1].b*mtr[5])
                       + (sBufBM[y+1][x-1].b*mtr[6])+(sBufBM[y+1][x].b*mtr[7])+(sBufBM[y+1][x+1].b*mtr[8]))div Z;
      end;
    end;
  finally
    FreeAndNil(BufBM);
    Result:=iBM;
  end;
except
  FreeAndNil(BufBM);
  FreeAndNil(Result);
  Exit;
end;
end;
end.

// использовать так параметр Bitmap с изображением
// img1.Picture.Bitmap:=Matrix(BM);