求一个语句累加的问题

Question

Unit Unit1;InterfaceUses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, Buttons;Type
  TForm1 = Class(TForm)
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    Procedure FormCreate(Sender: TObject);
    Procedure FormDestroy(Sender: TObject);
    Procedure BitBtn1Click(Sender: TObject);
    Procedure BitBtn2Click(Sender: TObject);
  Private
    sqltext: String;
    FList: TStringList;
  Public
  End;Var
  Form1: TForm1;Implementation{$R *.dfm}Procedure TForm1.FormCreate(Sender: TObject);
Begin
  FList := TStringList.Create;
End;Procedure TForm1.FormDestroy(Sender: TObject);
Begin
  FList.Clear;
  FreeAndNil(FList);
End;Procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
  Flist.Add(Format('select  * from table1 where name= %s', [quotedstr(combobox1.Text)]));
  If Flist.Count > 1 Then
  Begin
    Flist.Insert(Flist.Count - 1, 'union');
  End;
  sqltext := Flist.Text;
  Application.MessageBox(Pchar(sqltext), 'msg', 64);
End;Procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
  FList.Clear;
End;End.