Delphi の ToolButton で tbsDropDown 使用時 Caption 等を実行時に変更

Delphi の ToolButton の Style を tbsDropDown で使用している時に Caption 等を実行時に変更すると、ボタンの幅がデフォルトに戻ってしまう

1. ToolButton1.Style := tbsButton;  
2. ToolButton1.Style := tbsDropDown;  

    ToolButton1.Style := tbsButton;
    ToolButton1.Style := tbsDropDown;

のように、再指定が必要