Crear y Borrar componentes en tiempo de ejecución

[dec]

Hola,

A mí a bote pronto se me ocurre que uses variables "TObjectList", de tal forma que puedas ir guardando una referencia a cada objeto que creas, y puedas destruir estos según te sea menester. El código de más abajo está escrito en un momento, no me he parado mucho en el mismo, pero, como puede verse en el ejemplo que adjunto, aparentemente, al menos, consigue más o menos lo que te propones: ciñéndome en el ejemplo a unas cuantas "TLabel". Eres libre de mejorarlo y modificarlo como mejor te parezca. Si algún error de bulto hay, por favor, nadie se prive en comunicarlo. Gracias.

Código Delphi [-]
unit UfrmEjemplo;
 
interface
 
uses
  Forms, Classes, Controls,
  StdCtrls, SysUtils, Spin,
  Contnrs; // TObjectList
 
type
  TfrmPrincipal = class(TForm)
    SpinEdit: TSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure SpinEditChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    listaEtiquetas: TObjectList;
  end;
 
var
  frmPrincipal: TfrmPrincipal;
 
implementation
 
{$R *.dfm}
 
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
  listaEtiquetas := TObjectList.Create;
end;
 
procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  listaEtiquetas.Free;
end;
 
procedure TfrmPrincipal.SpinEditChange(Sender: TObject);
var
  i: integer;
  nLabel: TLabel;
begin
  if (SpinEdit.Value > listaEtiquetas.Count) then
  begin
    nLabel := TLabel.Create(Self);
    nLabel.Top := 10;
    nLabel.Left := 10;
    nLabel.Parent := Self;
    nLabel.Caption := 'Etiqueta: ' + IntToStr(listaEtiquetas.Count+1);
    if listaEtiquetas.Count >= 1 then
      nLabel.Top := TLabel(listaEtiquetas.Items[listaEtiquetas.Count-1]).Top + 20;
    listaEtiquetas.Add(nLabel);
  end
  else
    for i := listaEtiquetas.Count-1 downto SpinEdit.Value do
    begin
      if (i >= 1) then
        listaEtiquetas.Delete(i)
      else if (i = 0) then
        listaEtiquetas.Delete(0);
    end;
end;
 
end.