Fórum Evento em Run-Time #157764

Faz como nesse exemplo:

--------------------------

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 }
public
procedure FuncaoTeste(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Bt: TButton;
begin
Bt := TButton.Create(Form1);
Bt.Parent := Form1;
Bt.Name := ´Botao1´;
Bt.Width := 80;
Bt.Height := 25;
Bt.Left := 20;
Bt.Top := 30;
Bt.OnClick := FuncaoTeste;
end;

procedure TForm1.FuncaoTeste(Sender: TObject);
begin
ShowMessage(´Teste´);
end;

end.