500分求一问题

Question

动态产生button 100个。并添加同一个单击事件。
procedure TForm1.FormCreate(Sender: TObject);
var
  btn1:array[1..100] of TButton;
begin
  for i:=1 to 100 do
  begin
    btn1[i]:=TButton.Create(Self);
  with btn1[i] do
  begin
    Parent:=Self;
    Caption:='动态按钮';
    onClick:=myBnt1Click;
  end;
end;procedure Tform1.myBnt1Click(Sender: TObject);
begin
 {MessageDlgPos('事件已经响应',
    mtInformation,[mbAbort],0,100,200);
 }
 if MessageDlgPos('事件已经响应'
    +#10+'是否要退出?',mtConfirmation, [mbYes, mbNo],
    0,400,350) = mrYes then
  begin
    MessageDlg('现在将退出范例', mtInformation,
      [mbOk], 0);
    Close;
  end;  
请问高手如何知道是这100button中是谁触发的事件？
      必有重谢！！！！！！！！！！！！！！！
如感觉我是做法不对，不可行，请给出其他看法，谢谢。
最好有代码？谢谢。qq：251497462 希望有对delphi
感兴趣的朋友添加，交流。

Answer 1

cool,我在扫雷中也是如此做的。