如何通过代码改变流程工具条中各按钮的标题？

john

procedure TMainForm.BizToolBar1AdvancedCustomDrawButton(Sender: TDelphiToolBar; Button: TToolButton; State: TCustomDrawState; Stage: TCustomDrawStage; var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean);
begin
  if Button.Caption = '流转' then
  begin
    DefaultDraw := False;
    Button.Caption := '送审';
    Button.Hint := '送审';
  end;
end;