unit Int;

interface

uses
  System.SysUtils,
  System.Contnrs,
  System.Generics.Collections,
  System.Classes;

type

  // Интерфейсы для реализации дополнительных классов
  IFunctionalInterface = interface
    ['{72DE63BB-DA79-4FAC-8FEC-F12671B4DC52}']
    {
      Тут методы, поля.
    }
  end;

  IAnotherInterface = interface
    ['{DF9A0110-D588-45B6-8F8C-BE4F3CBE3555}']
    {
      Тут методы, поля.
    }
  end;

  // Интерфейс для главного класса
  IMainInterface = interface
    ['{D29A0190-F894-493F-BA97-564C81D49499}']
    function GetFunctional(): IFunctionalInterface;
    function GetCompGeneric(): TList<IAnotherInterface>;
    property Funtional: IFunctionalInterface read GetFunctional;
    // Здесь описывается типовой класс TList c элементами, мы не имеем представления какая будет реализация у элементов,
    // но она должна реализовывать всё, что описано в IAnotherInterface
    property CompGeneric: TList<IAnotherInterface> read GetCompGeneric;
  end;

implementation

end.

unit Cls;

interface

uses
  {RTL}
  System.SysUtils,
  System.Contnrs,
  System.Generics.Collections,
  System.Classes,
  int;

type

  // Класс реализующий главный интерфейс IMainInterface
  // Этот класс - единственное, что видно снаружи модуля
  TMainClass = class(TInterfacedPersistent, IMainInterface)
  private
    FFunctional: IFunctionalInterface;
    // Поскольку реализуется интерфейс, TList идет с IAnotherInterface
    FAnotherInterface: TList<IAnotherInterface>;
    function GetFunctional(): IFunctionalInterface;
    function GetCompGeneric(): TList<IAnotherInterface>;
  public
    constructor Create();
    destructor Destroy(); override;
  end;

implementation

type

  // Реализации других интерфейсов
  TFunctionalInterface = class(TInterfacedPersistent, IFunctionalInterface)
    {
      Тут методы, поля.
    }
  end;

  TIAnotherInterface = class(TInterfacedPersistent, IAnotherInterface)
    {
      Тут методы, поля.
    }
  end;

  { MainClass }

constructor TMainClass.Create();
begin
  // Помещаем в интерфейсное поле FFunctional реализацию TFunctionalInterface
  FFunctional := TFunctionalInterface.Create();
  // Теперь надо как-то поместить реализацию в FAnotherInterface
  FAnotherInterface := TList<TIAnotherInterface>.Create();
  {
    [dcc32 Error] Cls.pas(53): E2010 Incompatible types:
    'System.Generics.Collections.TList<Int.IAnotherInterface>' and
    'System.Generics.Collections.TList<Cls.TIAnotherInterface>'
  }
end;

destructor TMainClass.Destroy();
var
  i: Integer;
begin
  (FFunctional as TFunctionalInterface).Free();
  for i := 0 to FAnotherInterface.Count - 1 do
    (FAnotherInterface.Items[i] as TObject).Free;
  (FAnotherInterface as TObject).Free();
  inherited;
end;

function TMainClass.GetFunctional(): IFunctionalInterface;
begin
  Result := FFunctional;
end;

function TMainClass.GetCompGeneric(): TList<IAnotherInterface>;
begin
  Result := FAnotherInterface;
end;

end.

  TChildClass = class(TFunctionalInterface)
  
  end;

constructor TMainClass.Create();
begin
  // Помещаем в интерфейсное поле FFunctional реализацию TFunctionalInterface
  //FFunctional := TFunctionalInterface.Create();
  FFunctional := TChildClass.Create(); // Сюда подходит и любой потомок
end;

unit Cls;

interface

uses
  {RTL}
  System.SysUtils,
  System.Contnrs,
  System.Generics.Collections,
  System.Classes,
  int;

type

  // Класс реализующий главный интерфейс IMainInterface
  // Этот класс - единственное, что видно снаружи модуля
  TMainClass = class(TInterfacedPersistent, IMainInterface)
  private
    FFunctional: IFunctionalInterface;
    // Поскольку реализуется интерфейс, TList идет с IAnotherInterface
    FAnotherInterface: TList<IAnotherInterface>;
    function GetFunctional(): IFunctionalInterface;
    function GetCompGeneric(): TList<IAnotherInterface>;
  public
    constructor Create();
    destructor Destroy(); override;
  end;

implementation

type

  // Реализации других интерфейсов
  TFunctionalInterface = class(TInterfacedPersistent, IFunctionalInterface)
    {
      Тут методы, поля.
    }
  end;

  TIAnotherInterface = class(TInterfacedPersistent, IAnotherInterface)
    {
      Тут методы, поля.
    }
  end;

  { MainClass }

constructor TMainClass.Create();
begin
  // Помещаем в интерфейсное поле FFunctional реализацию TFunctionalInterface
  FFunctional := TFunctionalInterface.Create();
  // Теперь надо поместить реализацию в FAnotherInterface, создаем сперва TList
  FAnotherInterface := TList<IAnotherInterface>.Create();
  // Добавляем элемент с конкретной реализацией
  FAnotherInterface.Add(TIAnotherInterface.Create());
end;

destructor TMainClass.Destroy();
var
  i: Integer;
begin
  (FFunctional as TFunctionalInterface).Free();
  for i := 0 to FAnotherInterface.Count - 1 do
    (FAnotherInterface.Items[i] as TObject).Free;
  (FAnotherInterface as TObject).Free();
  inherited;
end;

function TMainClass.GetFunctional(): IFunctionalInterface;
begin
  Result := FFunctional;
end;

function TMainClass.GetCompGeneric(): TList<IAnotherInterface>;
begin
  Result := FAnotherInterface;
end;

end.