Оборачиваем TStringList в запись

Возможно. Создайте интерфейс, который предоставляет нужные вам методы/объекты:

type
  IStringList = interface
    procedure Add(const s: string); // etc.
    property StringList: TStringList read GetStringList; // etc.
  end;

Реализуйте интерфейс и оберните его настоящим TStringList:

type
  TStringListImpl = class(TInterfacedObject, IStringList)
  private
    FStringList: TStringList; // create in constructor, destroy in destructor
    // implementation etc.
  end;

Затем реализуйте запись:

type
  TStringListRecord = record
  private
    FImpl: IStringList;
    function GetImpl: IStringList; // creates TStringListImpl if FImpl is nil
                                   // returns value of FImpl otherwise
  public
    procedure Add(const s: string); // forward to GetImpl.Add
    property StringList: TStringList read GetStringList; // forward to
                                                         // GetImpl.StringList
    // etc.
  end;

Тот факт, что внутри записи есть интерфейс, означает, что компилятор будет автоматически обрабатывать подсчет ссылок, вызывая _AddRef и _Release при создании и уничтожении копий, поэтому управление временем жизни выполняется автоматически. Это работает для объектов, которые никогда не будут содержать ссылки на самих себя (создание цикла) — для подсчета ссылок требуются различные приемы, чтобы обойти циклы в графе ссылок.

Если вам посчастливилось выполнить обновление до Delphi 2009, проверьте Работа Барри с интеллектуальными указателями.

TSmartPointer<T: class> = record
strict private
  FValue: T;
  FLifetime: IInterface;
public
  constructor Create(const AValue: T); overload;
  class operator Implicit(const AValue: T): TSmartPointer<T>;
  property Value: T read FValue;
end;

Они действительно классные, но требуют методов Generics и Anonymous. Если вы еще не выполнили обновление до Delphi 2009, сделайте это сейчас! Особенно, когда они предлагают свои специальные предложения BOGO. Вы также получаете Руководство разработчика Delphi бесплатно от Marco всего за загрузка пробной версии. Я тоже уже купил его копию.

Другой пример уже реализован в CC.

StringList — это то же самое, что и TStringList, за исключением того, что это тип значения. Его не нужно создавать, уничтожать или помещать в try/finally. Это делает компилятор за вас. Для их работы практически нет особых штрафов за производительность:

var 
  strings: StringList;
  astr: string;
begin
  strings.Add('test1');
  strings.Add('test2');
  aStr := string(strings);
  RichEdit.Lines.AddStrings(strings);
end;

Код можно использовать в качестве шаблона для переноса любого TObject в качестве типа класса значения.

В нем уже есть все для раскрытого для вас TStringList.