[zip000]

Код:

uses
  StdCtrls;

var
  b : TButton;

procedure TForm1.FormCreate(Sender: TObject);
begin
  b := TButton.Create(Self);
  b.Parent := Form1;
  // тут можно изменить свойства кнопки
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  b.Free;
end;