delphi - Delphi 7 で Extended タイプの TList が許可されないのはなぜですか

Question

いくつかの単純なリスト（および整数リストと色リスト）を作成しましたが、「拡張」リストを作成しようとすると、前の2つのリストに同様の型キャストを使用したにもかかわらず、無効な型キャストと表示されます（どこでもエラーがスローされますExtended() 型キャストを使用します)。

Type
  TAExtList = Class(TObject)
  Private
    FList: TList;
    Procedure SetExt(Index: Integer; Value: Extended);
    Function GetCnt: Integer;
    Function GetExt(Index: Integer): Extended;
  Public
    Constructor Create;
    Destructor Destroy; Override;
    Function Add(Value: Extended): Integer;
    Function Insert(Index: Integer; Value: Extended): Integer;
    Procedure Delete(Index: Integer);
    Procedure Clear;
    Function IndexOf(Value: Extended): Integer;
    Property Count: Integer Read GetCnt;
    Property Extendeds[Index: Integer]: Extended Read GetExt Write SetExt; Default;
  End;

Function TAExtList.Add(Value: Extended): Integer;
Begin
  Result := FList.Add(Pointer(Value));
End;