Array de botões

Podemos criar um array de botões ou outro objeto em tempo de execução.
Confira o código abaixo, que foi inserido no evendo click do Button1:

procedure TForm1.Button1Click(Sender: TObject);var con: Integer;
      Buttons:array of Tbutton; {Classe dos objetos dos quais o array se refere (pode ser outra)}
begin
 setlength(buttons,5); {Indica o tamanho do array de botões}
 for con := 0 to length(buttons)-1 do
  begin
   buttons[con]:=tbutton.create(application);
   Buttons[con].Parent:=Form1;
   Buttons[con].name:='Button'+inttostr(con);
   buttons[con].Left:=10;
   buttons[con].Top:=26*con;
   buttons[con].Caption:='Button '+inttostr(con); {Propriedade caption com o numero da posição do botão no array}
  end;end;

[ Fonte ]