Una sfida di progetto

Di seguito un prototipo della definizione di classi (in Delphi) per la realizzazione del famosissimo Life (scusate per l'indentazione, ma è colpa di blogger) :

TLife = Class;

TRegion = Array [1..kCols,1..kRows] Of TLife;
PRegion = ^TRegion;

TPlanetArea = Class // Pianeta
Public
Procedure NewGeneration;
Property Region : TRegion
Read fRegion Write fRegion;
Property Grid : TStringGrid
Read fGrid Write fGrid;
Property Generations : Integer
Read fGenerations Write fGenerations;
End;

TLife = Class // Forma di vita
Public
Property Col : Byte
Read fCol;
Property Row : Byte
Read fRow;
Property Parents : Byte
Read fParents Write fParents;
End;

Tfrm_Life = Class(TForm)
G_World: TStringGrid;
Procedure FormCreate(Sender: TObject);
Procedure FormDestroy(Sender: TObject);
Private
fPlanetArea : TPlanetArea;
End;

Come implementereste la simulazione di vita?

Nota :
questa definizione sopra esposta è una parte del codice da me sviluppato per la simulazione di Life, dietro richiesta di un amico...simulazione realizzata in un'ora circa...
provateci voi...ma entro un'ora!

Chi fosse interessato posso inviare il sorgente del codice.