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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

var
  x, y, i: Integer;
  b: Boolean;
begin
(*
  Regeln für Fische
    - Jeder Fisch schwimmt zufällig auf eines der vier angrenzenden Felder,
      sofern es leer ist.
    - Jeder Fisch hat ein Alter; überschreitet dieses die Fisch-Lebenszeit,
      so wird auf einem leeren, angrenzenden Feld ein neuer Fisch geboren.
*)
  {Temporäres Array zunächst "mit Wasser füllen"}
  for x := iBoardMin-1 to iBoardMax+1 do
    for y := iBoardMin-1 to iBoardMax+1 do
      atmpBoard[x, y].clCell := clWater;

  for x := iBoardMin to iBoardMax do
    for y := iBoardMin to iBoardMax do
    begin
      if (aBoard[x, y].clCell = clFish) then
      begin
        case Random(4) of
          0: if aBoard[x+1, y].clCell = clWater then
             begin
               atmpBoard[x+1, y].clCell := clFish;
             end;
          1: if aBoard[x-1, y].clCell = clWater then
             begin
               atmpBoard[x-1, y].clCell := clFish;
             end;
          2: if aBoard[x, y+1].clCell = clWater then
             begin
               atmpBoard[x, y+1].clCell := clFish;
             end;
          3: if aBoard[x, y-1].clCell = clWater then
             begin
               atmpBoard[x, y-1].clCell := clFish;
             end;
        end;
      end;
    end;

  {Vom temporären Array zurückschreiben}
  for x := iBoardMin-1 to iBoardMax+1 do
    for y := iBoardMin-1 to iBoardMax+1 do
    begin
      aBoard[x, y].clCell :=
        atmpBoard[x mod iBoardMax, y mod iBoardMax].clCell;
    end;

 {Zuletzt zeichnen}
 DrawBoard;
end;					

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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

type TDoubleBufferedTorusMap = class
  private
    vMap: array [0..1] of array of array of TCell;
    vActiveMap: integer;
    vWidth, vHeight: integer;
  public
    constructor Create( width,height: integer );
    function GetActiveCell(x,y: integer): ^TCell; 
    function GetBackupCell(x,y: integer): ^TCell; 
    procedure SwapBuffers(); 
end;

constructor TDoubleBufferedTorusMap.Create( width,height: integer );
begin
  SetLength( vMap[0], width, height );
  SetLength( vMap[1], width, height );
  vActiveMap := 0; 
  vWidth := width;
  vHeight := height;
end; 

function TDoubleBufferedTorusMap.GetActiveCell(x,y: integer): ^TCell; 
var posX,posY: integer
begin
  posX := (x + vWidth) mod vWidth;
  posY := (y + vHeight) mod vHeight;
  Result := @vMap[vActiveMap][posX,posY];
end;

function TDoubleBufferedTorusMap.GetBackupCell(x,y: integer): ^TCell; 
var posX,posY: integer
begin
  posX := (x + vWidth) mod vWidth;
  posY := (y + vHeight) mod vHeight;
  Result := @vMap[(vActiveMap+1)mod 2][posX,posY];
end;

procedure TDoubleBufferedTorusMap.SwapBuffers(); 
begin
  vActiveMap := (vActiveMap+1) mod 2;
end;					

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

//--- initialisierung
map := TDoubleBufferedTorusMap.create(100,100);
for X:= 0 to 99 do
  for Y:= 0 to 99 do
    map.GetActiveCell(X,Y).clCell := clWater;

//--- Simulations-Beispiel: rotiere Torus nach unten
while true do
  begin
    for X:= 0 to 99 do
      for Y:= 0 to 99 do
        map.GetActiveCell(X,Y+1).clCell := map.GetBackupCell(X,Y).clCell;
    map.SwapBuffers();
  end;					

1:

  posX := (x + vWidth) mod vWidth;					

1:
2:
3:
4:
5:

..in create ..
 cWidth := (maxint div 2+1) DIV vWidth;

und dann 
 posX := (x + cWidth) mod vWidth;