Delphi通用TinterFaceList是否可行?

在Delphi2010中,我定义了一个通用的TinterFaceList,如下所示:

type

TInterfaceList<I: IInterface> = class(TInterfaceList)
  function GetI(index: Integer): I;
  procedure PutI(index: Integer; const Item: I);
  property Items[index: Integer]: I read GetI write PutI; default;
end;

implementation

function TInterfaceList<I>.GetI(index: Integer): I;
begin
  result := I(inherited Get(Index));
end;

procedure TInterfaceList<I>.PutI(index: Integer; const Item: I);
begin
  inherited Add(Item);
end;

我还没有遇到任何问题,但这样做有什么内在的风险吗?是否可以向其添加枚举器以允许..in循环对其进行处理?如果没有什么问题,我想知道为什么类似的东西还没有在rtl中定义。