如下例：
procedure TForm.ButtonClick(Sender: TObject);
begin
if tbutton(sender).caption='aaa' then
begin
tbutton(sender).caption:='bbb';//此处sender代表button aaa
.....
end;
if tbutton(sender).caption='ccc' then
begin
tbutton(sender).caption:='ddd';//此处sender代表button ccc
.....
end;
.......
end;
这样可以使许多button共享一段代码，在某些程序中是很方便的啦！
