sin embargo a mi si me funca. Mirá lo que hice:
Coloqué 2 botones comunes en un formulario vacío, cortito el programa.
Te tendría q funcionar. sino ya es otro problema.
Código Delphi
[-]
var
Form1: TForm1;
t:tbutton;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
t:= tbutton.Create(nil);
t.Parent:= form1;
t.Height:= 20;
t.Width:= 60;
t.Left:= 50;
t.Top:= 50;
t.Caption:= 'prueba';
t.OnClick:= button2click;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('eureca!');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
t.Free;
end;
end.