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

type                    // Klasse für Spieler
  TSpieler = class
    public
    X, Y: Integer;      // Position der Spieler
end;

type                    // Klasse für Spieler- Häuser
  TSpielerHaus = class
    public
    Besetzt: Boolean;   // Zustand der Felder
    X, Y: Integer;      // Position der Felder
end;

.
.
.

RotSpieler, GruenSpieler, BlauSpieler, GelbSpieler: array[1..4] of TSpieler;
RotHaus, GruenHaus, BlauHaus, GelbHaus: array[1..4] of TSpielerHaus;  // Für jedes Team/Farbe vier Häuser erstellen					

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

procedure Tform1.SpielerInitialisierung;
var i: integer; // Laufvariable
begin
  // Die Spieler auf die Häuser setzen:
  for i := 1 to 4 do
   begin
    BlauSpieler[i].X := BlauHaus[i].X;
    RotSpieler[i].X := RotHaus[i].X;
    GruenSpieler[i].X := GruenHaus[i].X;
    GelbSpieler[i].X := GelbHaus[i].X;

    BlauSpieler[i].Y := BlauHaus[i].y;
    RotSpieler[i].Y := RotHaus[i].Y;
    GruenSpieler[i].Y := GruenHaus[i].Y;
    GelbSpieler[i].Y := GelbHaus[i].Y;
   end;
end;					

1:

BlauSpieler[i].X := BlauHaus[i].X;					

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

for l:= 1 to 4 do
    begin
      RotSpieler[l].create;
      GruenSpieler[l].create;
      BlauSpieler[l].create;
      Gelbspieler[l].create;

      RotHaus[l].create;
      GruenHaus[l].create;
      BlauHaus[l].create;
      GelbHaus[l].create;
    end;					

1:
2:
3:
4:
5:

var
  myHaus : THaus;
begin
  myHaus := THaus.Create;
end;