一个简单的菜鸟问题，请指点！

Question

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  showmessage('button');
end;procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 9 do
  begin
    buttons[i]:=tbutton.Create(self);
    buttons[i].Parent:=self;
    buttons[i].Visible:=true;
    buttons[i].Caption:='Button' + inttostr(i);
    buttons[i].SetBounds(160,30+45*i,60,20);
    buttons[i].OnClick := buttonsclick;
  end;
end;
我想在点击button的时候，能够提示button的caption，请问应该怎么做？

Answer 1

procedure TForm1.ButtonsClick(Sender: TObject);
begin
  showmessage(button.caption);
end;

Answer 2

ShowMessage( TButton( Sender ).Caption );