unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}//TStringBuilder.Create 可以無參數(shù)procedure TForm1.Button1Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb.Append('Embarcadero');  sb.Append(' CodeGear');  sb.Append(' Delphi');  sb.Append(' 2009');  ShowMessage(sb.ToString); {Embarcadero CodeGear Delphi 2009}  sb.Free;end;//TStringBuilder.Create 可用字符串初始化; 其他重載用處不大procedure TForm1.Button2Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create('Delphi ');  sb.Append(2009);  ShowMessage(sb.ToString); {Delphi 2009}  sb.Free;end;end.