我没有用过,不过这种添加应该可以这样写:
procedure TForm1.Button1Click(Sender: TObject);
var
  ToolButton :TToolButton;
begin
  ToolButton := TToolButton.Create(self);
  ToolButton.Parent := ToolBar1;
  ToolButton.name := 'toolbutton1'
end;只要名称的控制做好了就行