Komponenten während des Ausführens durch Schleife hinzufügen

[Kidix]

Delphi-Quellcode:

var x : integer;
newbutton : TButton;
begin
 for x := 0 to anzahlderbuttons do
 begin
  newbutton := TButton.Create(Form1);
  newbutton.Name := 'button'+inttostr(x);
  newbutton.Parent := form1;
 end;
end;