alle dynamisch erzeugten shapes freigeben?

[Thorben86]

Hi,
ich erzeuge in meinem Programm Shapes dynamisch.(die anzahl ist variablenabhängig).
Jedoch soll es möglich sein, die anzahl im Edit zu ändern und diese dann neu erstellen zu lassen.

Wie kann ich es machen, dass alle vorher erzeugten shapes freigegeben werden. Muss ich da einfach den Bezug zu Form1 ändern und dann diese zuweisung freigeben?, oder wie ist sowas lösbar?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
shape:TShape;
begin
  for i := 1 to sp_scheibenzahl.value do begin
    Shape := TShape.Create(self);
    Shape.Name :='im_st1'+ 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;
    inc(Stapel[Startstapel].Anzahl);
end;
end;