如何在Delphi中将TComparer<T>类传递给泛型类型？

unit MyGenericUnit;

interface

uses
  Generics.Defaults;

type
  TMyGeneric<T> = class
  private
    FComparer: IComparer<T>;
  public
    constructor Create(const AComparer: IComparer<T>);
    procedure DoSomething(const Value: T);
  end;

implementation

constructor TMyGeneric<T>.Create(const AComparer: IComparer<T>);
begin
  FComparer := AComparer;
end;

procedure TMyGeneric<T>.DoSomething(const Value: T);
begin
  // 使用FComparer进行比较操作
  // ...
end;

end.

var
  MyObject: TMyGeneric<Integer>;
  Comparer: IComparer<Integer>;
begin
  Comparer := TComparer<Integer>.Default;
  MyObject := TMyGeneric<Integer>.Create(Comparer);
  MyObject.DoSomething(42);
end;