TOPIC:

type
  Auto<T: class> = reference to function: T;

  TAuto<T: class> = class(TInterfacedObject, Auto<T>)
  private
    FValue: T;
  public
    constructor Create(AValue: T);
    destructor Destroy; override;
    function Invoke: T;
  end;

  Auto = class
  public
    class function Wrap<T: class>(AValue: T): Auto<T>; static;
  end;