1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Klick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Knopf: TButton;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Knopf := tbutton.create(form1);
  Knopf.parent := form1;
  Knopf.OnClick := Klick;
end;

procedure TForm1.Klick(Sender: TObject);
begin
  Knopf.Free;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

  private
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;

procedure TForm1.ErstellterButtonClick(Sender: TObject);
begin
  PostMessage(Application.Handle, WM_USER + 55, 1,0);
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.message = wm_user + 55 then
    if msg.wParam = 1 then
    begin
      FreeAndNil(Knopf);
      Handled := true;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

private
  MyButtons: TList<TButton>;

// FormCreate
  MyButtons := TList<TButton>.Create(True);
// FormDestroy
  MyButtons.Free;

// Buttonliste aktualisieren:
var
  i: Integer;
  NewButton: TButton;
begin
  // fehlende Buttons erzeugen
  for i := MyButtons.Count to Pred(CurrentCount) do
  begin
    NewButton := TButton.Create(nil);
    NewButton.
    ...
    MyButtons.Add(NewButton);
  end;
  // überzählige Buttons entfernen
  for i := MyButtons.Count downto CurrentCount do
    MyButtons.Delete(i);
  // Werte zuweisen
  for i := 0 to Pred(MyButtons.Count) do
    MyButtons.Caption := IntToStr(i);
end;