是否有基于属性注入的Delphi依赖注入框架？

type
  TMyClass = class
  private
    [Inject]
    Factory: ISomeFactory;
    ...
  end;

或者通过归因于二传手

type
  TMyClass = class
  private
    FFactory: ISomeFactory;

    [Inject]
    procedure SetFactory(const AFactory: ISomeFactory);
    ...
  public
    property Factory: ISomeFactory read FFactory write SetFactory;
  end;

背景：我正在将旧代码移动到面向服务的体系结构,并发现引用服务层总是会导致类似的结构

DataModule1.ServiceLayerInstance1.SubSystemN.InvokeSomething(Params,...);

这可能会更短

type
  Form1 = class(TForm1)
  private
    [Inject]
    SubsystemN: ISubsystemN;
    ...
  end;
  ...
  SubsystemN.InvokeSomething(Params,...);