Динамическое создание кнопок

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  BtnArr : Array Of TButton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(BtnArr,0);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Finalize(BtnArr);
end;
 
Const
  WidthBtn = 20;
  HeightBtn = 20;
procedure TForm1.Button1Click(Sender: TObject);
Var
  i,l,t : Integer;
begin
  i:=Length(BtnArr);
  SetLength(BtnArr,i+1);
  BtnArr[i]:=TButton.Create(Form1);
  BtnArr[i].Parent:=Form1;
  If i=0 Then
  //Если первая кнопка
  Begin l:=0; t:=0; End Else
  Begin
    l:=BtnArr[i-1].Left+WidthBtn;
    t:=BtnArr[i-1].Top;
    If (l+WidthBtn)>Form1.Width Then
    Begin
      l:=0;
      t:=t+HeightBtn+10;
    End;
  End;
  BtnArr[i].Left:=l;
  BtnArr[i].Top:=t;
  BtnArr[i].Width:=WidthBtn;
  BtnArr[i].Height:=HeightBtn;
  BtnArr[i].Caption:=IntToStr(i);
  BtnArr[i].OnClick:=Button1Click; //Это так событие привязали
end;
 
end.