unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Actions, Vcl.ActnList,
  Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ToolWin;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    Button1: TButton;
    Button2: TButton;
    ActionList1: TActionList;
    Action1: TAction;
    procedure Action1Execute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    action2: TAction;
    NewToolButton: TToolButton;
    procedure Action2Execute(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage('1');
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
  ShowMessage('2');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  action1.Enabled:=not(action1.Enabled);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  action2.Enabled:=not(action2.Enabled);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  action2:=TAction.Create(Self);
  action2.ActionList:=ActionList1;
  action2.Caption:='Action2';
  action2.Name:='action2';
  action2.OnExecute:=action2Execute;
  action2.Enabled:=True;

  NewToolButton:=TToolButton.Create(Self);
  NewToolButton.Action:=action2;
  NewToolButton.Name:='ToolBotton2';
  NewToolButton.Parent:=ToolBar1;

  for i:=1 to pred(ToolBar1.ButtonCount) do ToolBar1.Buttons[i].Left:=ToolBar1.Buttons[i-1].Left;
end;

end.

ToolBar1.Buttons[i].Left:=ToolBar1.Buttons[i-1].Left;