Mehrere erzeute Objekte in Schleife wieder löschen?

[Leuselator]

Delphi-Quellcode:

// FormVariablen:
var MyEditList
  , MyChkBoxList
  , MyLabelList : TList;

// beschränke mich i.F. auf die Edits - die anderen Listen strickst Du nach dem selben Muster...
procedure Form1.FormCreate(Sender: TObject);
begin
  MyEditList   := TList.Create;
end;

procedure Form1.CreateTheControls;
begin
  MyEditList.Add(TEdit.Create(Owner))
  with TEdit(MyEditList.Last) do begin
    Parent := DeinParentControl;
    Left := 10;
    // usw.
  end;
end;

procedure Form1.DeleteTheControls;
var i : Integer;
begin
  for i := MyEditList.Count-1 downto 0 do TEdit(MyEditList[i]).Free;
  MyEditList.Clear;
end;

procedure Form1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(MyEditList);
end;

Gruß