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

 for y := 0 to N-1 do
       for x := 0 to N-1 do begin
           snr := x +y *N +1; // Nr. des Shapes berechnen
           Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
           if (feld[x,y]) then
              shape.brush.color := clblack
           else
             shape.brush.color := clwhite;					

1:
2:
3:
4:

alt     | neu
---------------------------------------
weiß    | 3 Nachbarn? -> schwarz
schwarz | 2 oder 3 Nachbarn? -> schwarz					

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

für alle Zellen im Feld
  wenn die alte Zelle weiß ist
    wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist
      neue Zelle schwarz machen
    sonst
      neue Zelle weiß machen
  sonst (die alte Zelle ist dann logischerweise schwarz)
    wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 2 oder 3 ist
      neue Zelle schwarz machen
    sonst
      neue Zelle weiß machen					

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

  TForm1 = class(TForm)
    Shape1: TShape;
    ...
  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    function AnzahlLebenderNachbarn(const x, y: Integer): Integer;
  end;
...

function TForm1.AnzahlLebenderNachbarn(const x, y: Integer): Integer;
begin
  Result := 0; // das ist natürlich Blödsinn
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.btnRechnenClick(Sender: TObject);
  var
    FeldNeu: TFeld; // der "Schmierzettel", wird genauso benutzt, wie das andere Feld
begin
  // hier kommt jetzt dein Versuch einer Übersetzung des Pseudo-Codes rein
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var x, y, snr: Integer;

    feldneu : tfeld;
    Shape: TShape;
begin
     for y := 0 to N-1 do
         for x := 0 to N-1 do begin
       snr := x +y *N +1; // Nr. des Shapes berechnen
       Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
      if not (feldneu[x,y]) then begin
         if   wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist
              then (Shape.Brush.Color = clBlack)
              else (Shape.Brush.Color = clWhite) end;
         else if  wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 2 oder 3 ist
      neue Zelle schwarz machen
              then (Shape.Brush.Color = clblack)
              else (Shape.Brush.Color = clwhite);

  end;

end;					

1:

if   wenn die Anzahl der schwarzen Nachbarn dieser Zelle = 3 ist					

1:

if (AnzahlLebenderNachbar(x, y) = 3) then					

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

for y := 0 to N-1 do
         for x := 0 to N-1 do begin
             snr := x +y *N +1; // Nr. des Shapes berechnen
             Shape := TShape(FindComponent('Shape' +IntToStr(snr))); // Komponente suchen
              if not (feldneu[x,y]) then
                   if   (AnzahlLebenderNachbarn(x, y) = 3)
                   then (Shape.Brush.Color = clBlack)
                   else (Shape.Brush.Color = clWhite)
              else if  (AnzahlLebenderNachbarn(x, y) in [2, 3])
                   then (Shape.Brush.Color = clblack)
                   else (Shape.Brush.Color = clwhite);
         end;					

1:
2:

begin
end;