alle dynamisch erzeugten shapes freigeben?

[Thorben86]

k, soweit so gut, klappt auch alles, nur wie greif ich da jetzt wieder drauf zu , um deren namen und position zu verändern?

weil ich identifiziere die Shapes bisher anhand von Stapelposition (1,2,3) und bei der Höhe mit der Anzahl der Scheiben), die im namen der Komponente gespeichert sind, die Position im Array hilft mir nicht weiter. Ich weis aber jetzt irgendwie nicht, wie ich das damit mache.
Meine Zugriffsprocedure

Delphi-Quellcode:

var
   Kompo:TShape;
begin
Kompo := (Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape);
if (Kompo <> nil) then
begin
Kompo.Left := Stapel[Zielstapel].left - (Kompo.Width div 2);
Kompo.Top  := Stapel[Zielstapel].Top - (15 * (Stapel[Zielstapel].Anzahl+1)) ;
inc(Stapel[Startstapel].Anzahl,-1);
inc(Stapel[Zielstapel].Anzahl);
Kompo.Name := 'im_st'+ InttoStr(Zielstapel) + 'nr' + InttoStr(Stapel[Zielstapel].Anzahl);
end;
end;

Die erzeugung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
shape:TShape;
anzahl:integer;
begin

  for i := 0 to fListe.count - 1 do
    TShape(fliste.Items[i]).Free;
  fListe.Clear;

  Stapel[1].Anzahl := 0;
  anzahl:=1;
  for i := 1 to sp_scheibenzahl.value do begin
     Shape := TShape.Create(self);
    Shape.Name :='im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl);
    Shape.Parent := Form1;
    shape.Width := 100;
    shape.Height := 15;
    shape.Top := Stapel[Startstapel].Top - (15 * (Stapel[Startstapel].Anzahl+1));
    shape.Left := Stapel[Startstapel].left - (shape.Width div 2);
    shape.Shape := stRoundRect;
    fListe.Add(shape);
    inc(Stapel[Startstapel].Anzahl);
    inc(Anzahl);
end;
end;

Edit: Bin gleich erstmal für ne weile weg, kann also nicht direkt antworten