crear dinamicamente un componente BOTON o TIMER

// boton y timer dinamico


(...)

procedure ClickBoton(Sender: TObject);
procedure RelojTimer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Boton: TButton;
Reloj: TTimer;

(...)




//*************************************************
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Boton := TButton.Create(Self);
Boton.Parent := Self;
Boton.Left := 100;
Boton.Top := 100;
Boton.Caption:='Pulsame';
Boton.Name := 'Boton';
Boton.OnClick:=ClickBoton;


Reloj := TTimer.Create(Self);
Reloj.Interval:=1000;
Reloj.Enabled:=true;
Reloj.OnTimer:= RelojTimer;
end;


//*************************************************
procedure TForm1.ClickBoton(Sender: TObject);
begin
showmessage('boton pulsado hola');
end;


//*************************************************
procedure TForm1.RelojTimer(Sender: TObject);
begin
showmessage('Reloj');
end;