procedure Test;
var
  h: TSmartHolder;
  L: TList;
  ini: TIniFile;
  sl: TStrings;
begin
  L := h.CreateList(); // Создание типового объекта
  // далее используем переменную L как обычно

  h.RegObj(ini, TIniFile.Create('myfile.ini')); // Создание произвольного объекта
  // далее используем переменную ini как обычно

  sl := h.RegObj(TStringList.Create) as TStrings; // Создание произвольного объекта
end;

function RegObj<T: class>(const AVal: T): T;

  ISmartPointer<T: class> = reference to function: T;

  TSmartPointer<T: class> = class(TInterfacedObject, ISmartPointer<T>)
  strict private
    FObject: T;
    function Invoke: T; inline;
  public
    constructor Create(const aObject: T);
    destructor Destroy; override;
  end;

{ TSmartPointer<T> }

function TSmartPointer<T>.Invoke: T;
begin
  Exit(FObject);
end;

constructor TSmartPointer<T>.Create(const aObject: T);
begin
  FObject := aObject;
end;

destructor TSmartPointer<T>.Destroy;
begin
  FreeAndNil(FObject);
  inherited Destroy();
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  x: ISmartPointer<TForm2>;
begin
  x := TSmartPointer<TForm2>.Create(TForm2.Create(nil));
  x.Caption := '123';
  x.ShowModal();
end;

var L := h.CreateStringList();

var L := TStringList.Create();
h.RegObj(L);

destructor TSmartPointer<T>.Destroy;
begin
  FreeAndNil(FObject);
  inherited Destroy();
end;

var
  x: TForm2;
  h: TSmartHolder;
begin
  x := h.RegObj(TForm2.Create(nil)) as TForm2;

x := TSmartPointer<TForm2>.Create(TForm2.Create(nil));

x := TSmartPointer.Create(TForm2.Create(nil));

x := Auto(TForm2.Create(nil));

x := TSmartPointer<>.Create(TForm2.Create(nil));

  TStatic = class
  public
    class function Test<T: class>(const aObj: T): T; static;
  end;

  {$REGION 'Shared smart pointer'}

  IShared<T> = reference to function: T;

  {$REGION 'Weak smart pointer'}

  IWeakReference<T> = interface

o := TObject.Create;
o.Free;

if Assigned(o) then o.Width := 10;