Variable in Shapenamen!

[daNiii]

hey danke!
wieder mal sehr hilfreich und aufleuchtend!


aber habe wieder eine weitere Frage!

ich habe die erfolgreich gelöscht und stelle sie wieder her!
blöderweise aber nicht an der gleichen Stelle, obwohl ich zum Erstellen dieser Shapes die gleiche procedure verwende,
siehe hier:

Delphi-Quellcode:

procedure TForm1.Spielbrettaufbauen();
var
 horizontal,vertikal: integer;
 //Feld:  array of array of tshape;
 Feld: tshape;
 Feldnummer: integer;
begin
Feldnummer:= 0;

for horizontal := 1 to Spalten do  begin
Feldnummer:= Feldnummer +1;        
Abstand_hor:= Abstand_hor + Breite;
    Abstand_ver:= Basis;
    for vertikal := 1 to Zeilen do
    begin
    Feldnummer:= Feldnummer +1;
       Abstand_ver:= Abstand_ver + Hoehe;
       //das Shape wird formatiert
       Feld := Tshape.create(self);
       Feld.Name:= 'Teil'+inttostr(Feldnummer);
       Feld.Parent:=  form1;
       Feld.height:=  Hoehe;
       Feld.width:=  Breite;
       Feld.top:=  Position_top + Abstand_ver;
       Feld.left:=  Position_left + Abstand_hor;
       Feld.OnMouseUp:= Fillshape;
    end;
end;

end;

Beim zweiten mal Erstellen, befinden sich meine shapes rechts genau neben den gelöschen shapes, welche man natürlich nicht mehr sieht.
kann mir hier jemand helfen?