Delphi:如何将子接口实现委托给子对象？

type
  IChildInterface = interface
    procedure DoSomething;
  end;

  TChildObject = class(TInterfacedObject, IChildInterface)
    procedure DoSomething;
  end;

  TParentObject = class
  private
    FChild: IChildInterface;
  public
    constructor Create;
    procedure DoSomething;
  end;

implementation

procedure TChildObject.DoSomething;
begin
  // 子对象的具体实现
end;

constructor TParentObject.Create;
begin
  FChild := TChildObject.Create;
end;

procedure TParentObject.DoSomething;
begin
  FChild.DoSomething; // 委托给子对象的方法调用
end;