[celades1]

Hola
mira esto

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
  PROCEDURE BUTO_APRETAT(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
VAR BUTO:TButton ;
begin
    BUTO:=TButton.CREATE(SELF) ;
    BUTO.Parent:=PANEL1;
    BUTO.Top:=2;
    BUTO.Left:=4;
    BUTO.CAPTION:='BAGA';
    BUTO.OnClick:= BUTO_APRETAT;
end;
 
 
PROCEDURE TForm1.BUTO_APRETAT(Sender: TObject);
BEGIN
TBUTTON(SENDER).Caption:='APRETAT';
END;

Saludos