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

procedure TForm1.Spielfelderstellen();
var
S,Z,F: integer;
begin
Z:= 1;
F:= 1;
for Z := 1 to Zeilen do begin

for S := 1 to Spalten do begin
Feld[Z,F]:= TShape.Create(self);
Feld[Z,F].parent := form1;
Feld[Z,F].width:= Breite;
Feld[Z,F].height:= hoehe;
Feld[Z,F].left:= startposition_left + (Breite + Abstand_hor)*S;
Feld[Z,F].top:= startposition_top + (Hoehe + Abstand_ver)*Z;
Feld[Z,F].onmouseup := fillshape;

end;
end;
end;                    

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

procedure TForm2.Button1Click(Sender: TObject);
begin

Unit1.Startposition_left := strtoint(edit_abstandlinks.text);
Unit1.Startposition_top := strtoint(edit_abstandoben.text);

Unit1.Zeilen := strtoint(edit_anzahlzeilen.text);
Unit1.Spalten := strtoint(edit_anzahlspalten.text);

Unit1.Hoehe := strtoint(edit_hoehezelle.text);
Unit1.Breite := strtoint(edit_breitezelle.text);

//Unit1.Farbe := stringtocolor(edit_spielerfarbe.text); }

form2.close;

form1.Spielfelderstellen;
end;                    

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

procedure SpielfeldUpDate(Startposition_left,Startposition_top: Integer 
                                               {... weitere Prozedurvariablen});  
begin
  //bestehendes Spielfeld an Hand der übergebenen Parameter anpassen
  Feld[Z,F].left:= Startposition_left ...
  //etc.
end;                    

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

procedure TForm2.Button1Click(Sender: TObject);
begin
  SpielfeldUpDate(strtoint(edit_abstandlinks.text),
                  strtoint(edit_abstandoben.text),
                  {... weitere Parameter}  );
end;