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

procedure TForm1.FormCreate(Sender: TObject);
var snr,y,x : integer;
    shape : TShape;
begin
  for y := 0 to N-1 do
   for x := 0 to N-1 do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    Shape.Parent := Self; // das neue Shape soll auf dem Formular (=Self) angezeigt werden
    snr := x +y *N +1;
    Shape.Name := 'Shape'+inttostr(snr); // Name der Komponente
    Shape.Left := 8+x*25; // 8 Pixel vom linken Rand
    Shape.Top := 48+y*25; // 8 Pixel vom oberen Rand
    Shape.Width := 25; // 25 Pixel breit
    Shape.Height := 25; // 25 Pixel hoch
    Shape.OnMouseDown := @Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
    ClientHeight := N*25+100;
    ClientWidth := N*25+80;
   end;
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
var snr,y,x : integer;
    shape : TShape;
begin
  for y := 0 to N-1 do
   for x := 0 to N-1 do begin
    Shape := TShape.Create(Self); // Shape-Objekt erzeugen, als Eigentümer das Formular (=Self) angeben
    ...
    Shape.OnMouseDown := @Shape1MouseDown; // haben wir hier nicht, aber so weist man eine Methode zu
    ClientHeight := N*25+100;
    ClientWidth := N*25+80;
   end;
end;					

1:

if (AnzahlLebenderNachbarn(x, y) in [2, 3]) then					

1:
2:
3:

var
  ueberleben:   Array[0..8] of Boolean;
  neuEntstehen: Array[0..8] of Boolean;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

const
  N = 10; // Seitenlänge des Feldes

type
  TNachbarn = 1..8; // es gibt 8 Nachbarn einer Zelle

  TRegel = set of TNachbarn; // Auswahl von Nachbaranzahlen

  TFeld = array[0..N-1, 0..N-1] of Boolean; // Aufbau des Feldes festlegen (2-dimensionales array)

  TForm1 = class(TForm)
    ...
  public
    Feld: TFeld; // das ist der interne Speicher für die Zellen (=Shapes in der GUI)
    Ueberleben: TRegel;
    Geburt: TRegel;
    function LebtNachbar(x, y: Integer): Boolean;

...

procedure TForm1.FormCreate(Sender: TObject);
  var
    x, y, snr: Integer;
    Shape: TShape;
begin
  Ueberleben := [2, 3]; // Standard-Regeln definieren
  Geburt := [3];
  ClientWidth := 17 +24 *N;
  ...					

1:

TNachbarn = 0..8;					

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

   for y := 0 to N-1 do
    for x := 0 to N-1 do
      if Feld[x, y] then
         for i := 1 to 8 do
         FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) = ueberleben)
      else
        FeldNeu[x, y] := (AnzahlLebenderNachbarn(x, y) = geburt);
  Feld := FeldNeu;