1:
2:
3:
4:

for dx := -1 to 1 do
  for dy := -1 to 1 do
    if (Feld[x +dx, y +dy]) then
      Result := Result +1;					

1:
2:
3:
4:

  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
    function LebtNachbar(x, y: Integer): Boolean;					

1:
2:
3:
4:
5:

function TForm1.LebtNachbar(x, y: Integer): Boolean;
begin
  ShowMessageFmt('x=%d, y=%d', [x, y]); // das hier ist nur zum Testen
  Result := Feld[x, y];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
      if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
end;					

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(1, 1); // Test-Aufruf nur für die Zelle[1,1]
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  var
    dx, dy: Integer;
begin
  Result := 0;
  for dy := -1 to 1 do
    for dx := -1 to 1 do
      if not ((x=0) and (y=0)) then
      if LebtNachbar(x +dx, y +dy) then
        Inc(Result); // das ist das Gleiche wie "Result := Result +1", nur kürzer ;)
end;					

1:
2:
3:
4:

procedure TForm1.btnTestClick(Sender: TObject);
begin
  AnzahlLebenderNachbarn(0, 0); // Test-Aufruf nur für linke obere Ecke (Zelle[0,0])
end;