动态创建控件数组及其事件相关问题

Question

大家好，请教个问题：如下：'所单击按钮的CAPTION'应使用什么语句表示？怎样实现类self.caption的表示方法。谢谢
动态创建控件数组：
procedure TForm1.Button1Click(Sender: TObject);
var
  MyButton:array of TButton;
  i,m:integer;
begin
  SetLength(MyButton,6);
  for i := 0 to 5 do
  begin
    MyButton[i] := TButton.Create(Self);
    MyButton[i].Top := 10 + i * 30;
    MyButton[i].Left :=20;
    MyButton[i].Height := 30;
    MyButton[i].Width := 70;
    MyButton[i].Parent := Self;
    MyButton[i].Caption := '按钮';
    MyButton[i].OnClick := Mybuttonclick;
    MyButton[i].Show;
    Button1.Visible := False;
   end;
end;
procedure TForm1.Mybuttonclick(Sender: TObject);
begin
showmessage('所单击按钮的CAPTION');
end;

Answer 1

ShowMessage((Sender as TButton).Caption);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  MyButton:array of TButton;
  i:integer;
begin
  SetLength(MyButton,6);
  for i := 0 to 5 do
  begin
  MyButton[i] := TButton.Create(Self);
  MyButton[i].Top := 10 + i * 30;
  MyButton[i].Left :=20;
  MyButton[i].Height := 30;
  MyButton[i].Width := 70;
  MyButton[i].Parent := Self;
  MyButton[i].Caption := '按钮'+IntToStr(i);
  MyButton[i].OnClick := Mybuttonclick;
  MyButton[i].Show;
  Button1.Visible := False;
  end;
end;procedure TForm1.Mybuttonclick(Sender: TObject);
begin
  ShowMessage((Sender as TButton).Caption);
end;

Answer 3

也可以继承一个类,新类里的新方法里面showmsg