Delphi - Nombre de Objeto Creado.

Hola Me podrian decir como ago para darle nombres, y Usar los eventos de los objetos creados en tiempo de ejecucion
haci creo el objeto:
button1:=Tbutton.Create(self);
button1.parent:=form1;
button1.Left:=20;
Tambien necesito q cuando cree un boton y precione sobre el se cree otro al lado haci infinitamente, q ballan alineandoce uno al lado del otro. : ) Ojala se pueda
Chao
Gracias

Pues para darle nombre:

Button1.Name := 'BotonCreadoEnEjecucion';

Para asignarle un manejador al evento OnClick:

Button1.OnClick := MiManejadorDeOnClick;

en la unit tendrás que haber declarado previamente:

procedure MiManejadorDeOnClick(Sender: TObject);
begin

//Lo que quieras que haga el botón al pulsar sobre él.

end;

Saludos.

Se supone que MiManejadorDeOnClick debe ser un método de un objeto (procedure of object) y por ejemplo puede estar declarado en la sección privada del formulario:

type
TForm1 = class(TForm)
...
private
procedure TForm1.MiManejadorDeOnClick(Sender: TObject);
...
end;

En la implementación, para que se cree otro botón al lado:

procedure TForm1.MiManejadorDeOnClick(Sender: TObject);
begin
with TButton.Create(Self) do begin
parent := Self;
Left := TButton(Sender).Left + TButton(Sender).Width;
Top := TButton(Sender).Top;
end;
end;

Ernesto