Deiphi 使用 TObjectList 來管理物件

uses
  Contnrs;

在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
var
  list: TObjectList;
  Strings1, Strings2: TStrings;
begin
  list := TObjectList.Create(True); // Owns Objects  
  try
    Strings1 := TStringList.Create;
    list.Add(Strings1);
    Strings1.Add('select * from a ...');

    Strings2 := TStringList.Create;
    list.Add(Strings2);
    (list.Items[1] as TStrings).Add('select * from b ...');
  finally
    list.Free; // Free list ( Strings1, Strings2 ... )
  end;
end;