Objekte zur Laufzeit erstellen und löschen

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  while Panel1.ControlCount > 0 do
  begin
      showmessage(Panel1.Controls[0].name);
      Panel1.Controls[0].free;
      Application.ProcessMessages;
  end;
end

Was haltet ihr denn von dieser Lösung ...

Da braucht kein Compiler irgendwas optimieren und die Diskussionen werden gespart

cu

Oliver