private
{ Private declarations }
ToolBar: TToolBar;
ToolButton: TToolButton;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// creai toolbar
ToolBar := TToolBar.Create(Nil);
TabSheet1.InsertControl(ToolBar);
// crei un pulsante dentro la toolbar
ToolButton := TToolButton.Create(ToolBar);
ToolButton.Parent := ToolBar;
end;