Hola
No se si sera esto lo que preguntas, pero para saber que boton presionaste es solo cuestion de definir el nombre de la variable, algo asi:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure OnButton1Click(Sender: TObject);
procedure OnButton2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Button1,Button2: TButton;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1:= TButton.Create(Self);
Button1.Parent := Self;
Button1.Caption := 'Botón';
Button1.Left:= 20;
Button1.Top:= 10;
Button1.OnClick := OnButton1Click;
Button2:= TButton.Create(Self);
Button2.Parent := Self;
Button2.Caption := 'Botón';
Button2.Left:= 100;
Button2.Top:= 10;
Button2.OnClick := OnButton2Click;
end;
procedure TForm1.OnButton1Click(Sender: TObject);
begin
ShowMessage('Presionaste el boton 1!');
end;
procedure TForm1.OnButton2Click(Sender: TObject);
begin
ShowMessage('Presionaste el boton 2!');
end;
end.
Como veras, aqui estan el boton 1 y el dos declarados y tienen un diferente evento OnClick.
Espero que te sirva.
Saludos