Fehler beim Einsatz von Schleife

[felxi]

Hallo,

ich programmiere zur Zeit ein "game of life", welches auch fehlerfrei läuft. Mit einer Prozedur ermittle ich alle benachbarten Felder eins Feldes Feld[x|y], wobei 'k' die Anzahl der bisherigen Nachbarn ist:

Delphi-Quellcode:

 If Feld[x,y+1] = 1 then inc(k,1);
  If Feld[x+1,y+1] = 1 then inc(k,1);
  If Feld[x+1,y] = 1 then inc(k,1);
  If Feld[x+1,y-1] = 1 then inc(k,1);
  If Feld[x,y-1] = 1 then inc(k,1);
  If Feld[x-1,y-1] = 1 then inc(k,1);
  If Feld[x-1,y] = 1 then inc(k,1);
  If Feld[x-1,y+1] = 1 then inc(k,1);

So klappt alles einwandfrei, doch wenn ich dasselbe mit einer Schleife lösen will, kappts irgendwie nicht mehr

Delphi-Quellcode:

  For i := x-1 to x+1 do
    For j := y-1 to y+1 do
      If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);

Finde den Fehler nicht