多个按钮使用同一个事件处理过程，怎么知道是哪一个按钮触发的？

Question

多个按钮使用同一个事件处理过程，怎么知道是哪一个按钮触发的？我的按钮是在程序运行中动态增加的，是一个按钮数组，事件处理过程被指定给该按钮数组后，根据所点按钮的不同，应该执行不同的逻辑。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    if self.ActiveControl=button1 then
        showmessage('button1')
    else
        showmessage('button2');
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
    if self.ActiveControl.Name='button1' then
        showmessage('button1')
    else
        showmessage('button2');
end;