关于ToolBar的问题求教

Question

通过下面的函数所创建的ToolBarCreateToolBarEx(parent,Style,1000,0,0,IDB_STD_SMALL_COLOR ,nil,0,16,16,0,0,SizeOf(TTBBUTTON));加入3个ToolButton
SendMessage(handle, TB_ADDBUTTONS,3,integer(@FButtonArray));加入标题
 FCaptions:='Button1'#0'btn2'#0'button3'#0#0;
 SendMessage(handle, TB_ADDSTRING,0,Integer(FCaptions));
  
  此时的显示效果3个按钮一样大小，均为‘Button1’的宽度，请问：如何使ToolButton的大小自适应标题文字的宽度？？？？？？？？？？？？？？？？？