unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Evento_ButtonClick( Sender : TObject );
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Evento_ButtonClick(Sender: TObject);
begin
   ShowMessage('E não é que funciona?!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
meu_form : Tform;
meu_label : TLabel;
meu_butaum : TButton;
begin
//criando o form dinamico
meu_form := Tform.Create(Application);
meu_Form.Height := 300;
meu_form.Name := 'meu_form';
meu_form.Width := 300;
meu_form.Top := 200;
meu_form.Left := 300;
meu_form.Caption := 'Form criado dinamicamente.';
meu_form.Show;

//criando um label dentro do form dinamico
meu_label := TLabel.Create(meu_form);
meu_label.Parent := meu_form;
meu_label.Caption := 'Label criado dinamicamente.';
meu_label.Name := 'meu_label';
meu_label.Align := alCustom;
meu_label.Left := 80;
meu_label.Top := 50;
meu_label.Show;

//criando um botão dentro do form dinamico
meu_butaum := TButton.Create(meu_form);
meu_butaum.parent := meu_form;
meu_butaum.Caption := 'meu_butaum.';
meu_butaum.Name := 'meu_butaum';
//meu_butaum.Align := alRight;
meu_butaum.Height := 49;
meu_butaum.Width := 145;
meu_butaum.Left := 80;
meu_butaum.Top := 180;
meu_butaum.Show;
meu_butaum.onClick := Evento_ButtonClick; //??
end;

end.