Delphi 2009中的Generic TList <>在IndexOf上崩溃

TMyObject = class
  // ...
  public
    function Equals(Obj: TObject): Boolean; override;
  // ...
end;

function TMyObject.Equals(Obj: TObject): Boolean;
begin
  Result := (Obj is TMyObject) and (Self.SomeProperty = TMyObject(Obj).SomeProperty);
end;

TMyComparer = class(TInterfacedObject, IComparer<TMyObject>)
  // ...
  public
    function Compare(const Left, Right: TMyObject): Integer;
  // ...
end;

function TMyComparer.Compare(const Left, Right: TMyObject): Integer;
begin
  if Left.SomeProperty< Right.SomeProperty then
    Result := -1
  else if Left.SomeProperty > Right.SomeProperty then
    Result := 1
  else
    Result := 0;
end;

var
  MyList: TList<TMyObject>;
  MyObject: TMyObject;
  Comparer: IComparer<TMyObject>;
  Index: Integer;
begin
  MyList := TList<TMyObject>.Create;
  try
    // ...
    MyObject := TMyObject.Create;
    // ...
    Comparer := TMyComparer.Create;
    Index := MyList.IndexOf(MyObject, Comparer);
    // ...
  finally
    MyList.Free;
  end;
end;