Filtr Graficzny - Problem

Witam wszystkich wszystkich użytkowników:)

To mój pierwszy post na tym forum i proszę bardzo o pomoc!

Otóż mam wykonać filtr graficzny do projektu z informatyki i nie potrafię sobie z tym poradzić.

O to kod filtru:

procedure TForm1.Button6Click(Sender: TObject);
var
  x,y,i,j,m,n,t,suma: integer;

begin

  i:=Image1.Picture.Bitmap.Height;
  j:=Image1.Picture.Bitmap.Width;

  for x:=0 to  i-1 do
  for y:=0 to  j-1 do


begin

  suma:=0;

  for m:=-1 to 1 do
    for n:=-1 to 1 do

begin

                  //Warunki sprawdzania zakresu obrazu (czy np. x+m=-1)

continue;

    suma:=suma+Image1.Picture.Bitmap.Canvas.Pixels[x+m,y+n]-1;
    t:=suma mod 9;

  Image2.Picture.Bitmap.Canvas.Pixels[X,Y]:=RGB(t,t,t);

end;

Mój problem w tym że w ogóle to nie chce działać, mama według wykładowcy zapisać warunki sprawdzania zakresu obrazu ale nie potrafię tego zrobić. Proszę o pomoc

Przeczytaj ten artykuł.