TStringListのささやかな新機能。

エターナルフォースOwnsObjects*1！

type
  TStringList = class(TStrings)
    ...
    constructor Create(OwnsObjects: Boolean); overload;
    ...
  end;

Create時にTrueを指定しておくと、Freeをしたその一瞬でObjectsプロパティに含まれるインスタンスを解放させる*2。
相手は死ぬ。

*1:ちなみにまじめな話も書いておくと、Delphi2009から存在する模様

*2:Delete時なども同様、要するにTObjectListの機能そのまま