Проблема изменения размера полосы TCoolBar в Delphi 10.3

Question

Я поместил компонент TCoolBar в новый проект в Delphi 10.3. Есть несколько групп подряд. Когда я изменяю размер одной полосы, остальные справа в той же строке также меняют размер. Я могу уменьшить или увеличить размер группы, остальные справа всегда увеличиваются по разнице. Если я изменил размер формы, вся группа взбесилась. Все они увеличивают свои размеры.

Ошибка не возникает, если я создаю бэнд с помощью редактора бэндов. Это происходит, когда я опускаю некоторые TActionToolBar в TCoolBar.

CoolBar AutoSize не устанавливается. Band или TActionToolBar не имеют такого свойства.

Файл pas:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    ActionManager1: TActionManager;
    CoolBar1: TCoolBar;
    ActionToolBar1: TActionToolBar;
    ActionToolBar2: TActionToolBar;
    ActionToolBar3: TActionToolBar;
    ActionToolBar4: TActionToolBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

Файл dpr:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 405
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 635
    Height = 65
    Bands = <
      item
        Control = ActionToolBar1
        ImageIndex = -1
        Width = 148
      end
      item
        Break = False
        Control = ActionToolBar2
        ImageIndex = -1
        Width = 477
      end
      item
        Control = ActionToolBar3
        ImageIndex = -1
        Width = 146
      end
      item
        Break = False
        Control = ActionToolBar4
        ImageIndex = -1
        Width = 479
      end>
    FixedSize = True
    object ActionToolBar1: TActionToolBar
      Left = 11
      Top = 0
      Width = 135
      Height = 25
      Caption = 'ActionToolBar1'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar2: TActionToolBar
      Left = 163
      Top = 0
      Width = 468
      Height = 25
      Caption = 'ActionToolBar2'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar3: TActionToolBar
      Left = 11
      Top = 27
      Width = 133
      Height = 25
      Caption = 'ActionToolBar3'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object ActionToolBar4: TActionToolBar
      Left = 161
      Top = 27
      Width = 470
      Height = 25
      Caption = 'ActionToolBar4'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
  end
  object ActionManager1: TActionManager
    Left = 248
    Top = 160
    StyleName = 'Platform Default'
  end
end

Есть ли какое-либо решение этой проблемы ?