Problem mit FindComponent

[Nightshade]

Ich würds über ne ObjectList machen :

Delphi-Quellcode:

uses Contnrs;  // <<--  nicht vergessen !!!

var
  Form1: TForm1;
  liste : TObjectList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyLabel : TLabel;
  t : integer;
begin
  liste := TObjectList.Create;
  Liste.OwnsObjects := true;
  for t := 0 to 50 do begin
    Mylabel := TLabel.Create(form1);
    MyLabel.Top := t * 16;
    MyLabel.Name := 'Label' + inttostr(t);
    MyLabel.Parent := Form1;
    Liste.Add(MyLabel);
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Liste.Clear; // <<-- hier löscht die Liste alle Labels und gibt sie frei.
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Liste.free;
end;