unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Panel1: TPanel;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   procedure BClick(Sender: TObject);

   procedure CreateButton(tg,k: integer);
 end;

var
 Form1: TForm1;
 btn_mas: array [1..25] of string;

implementation

{$R *.dfm}

procedure TForm1.CreateButton(tg,k: integer);
var
t: TButton;
begin
t:=Tbutton.Create(Self);
t.Left:=k;
t.Top:=8;
t.Caption:=btn_mas[tg];
t.Visible:=true;
t.Parent:=Panel1;
t.OnClick:=BClick;
t.Tag:=tg;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
t: TButton;
i,k: integer;
begin
k:=16;

for i:=1 to high(btn_mas) do
 btn_mas[i]:='index-'+IntToStr(i);

for i:=1 to 2{high(btn_mas)} do
 begin
  CreateButton(i,k);

  k:=k+75+6;
 end;
end;

procedure TForm1.BClick(Sender: TObject);
begin
while Panel1.ControlCount>0 do
 begin
  if Panel1.Controls[0] is TButton
  then Panel1.Controls[0].Free;
 end;
end;

end.

while Panel1.ControlCount>0 do
begin
 if Panel1.Controls[0] is TButton
 then Panel1.Controls[0].Free;
end;

for i := List.Count - 1 downto 0 do
 List[i].Free;