能否通过一个循环语句来实现对名称赋值

Question

各位朋友，代码如下 ：
  ToolButton101.Caption := '1';
  ToolButton102.Caption := '2';
  ToolButton104.Caption := '3';
  ToolButton105.Caption := '4';
............................
 ToolButton155.Caption := '55';
请教一下各位朋友，上面的代码，能否可以通过一个循环语句来进行赋值，而不需要写那么多条的赋值语句呢？请各位朋友赐教，谢谢！！！ 

Answer 1

var
  I: Integer;
begin
for I := 0 to ToolBar1.ButtonCount - 1 do
  ToolBar1.Buttons[i].Caption := Copy(ToolBar1.Buttons[i].Name,Length(ToolBar1.Buttons[i].Name) - 2,2);
end;

Answer 2

或者
var
  I: Integer;
begin
for I := 0 to ToolBar1.ButtonCount - 1 do
  ToolBar1.Buttons[i].Caption := IntToStr(StrToIntDef(Copy(ToolBar1.Buttons[i].Name,Length(ToolBar1.Buttons[i].Name) - 2,2),0));
end;