TSpeedButton 怎么让Caption内容以 竖形文字 形式显示

TSpeedButton 如何让Caption内容以 竖形文字 形式显示
求教！

[解决办法]
自己代码控制

Delphi(Pascal) code

SpeedButton1.Caption := 'a'+#13+'b';
[解决办法]
Delphi(Pascal) code
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons;type  TForm1 = class(TForm)    SpeedButton1: TSpeedButton;    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  SpeedButton1.Caption:='測'+#13+'試'+#13+'程'+#13+'序';end;end.