D7 TObjectList Get/SetItem - ошибка

[Ship_1]

Здравствуйте!
Не пойму, чего не нравится Delphi 7?
Пытаюсь сделать класс TObjectList и прописать в нём Get/SetItem своего типа. На DXE сто раз получалось, решил перенести на D7, а он стал ругаться.
Класс:

  TLevels = class(TObjectList)
  private
    function GetItems(Index: Integer): TLevel;
    procedure SetItems(Index: Integer; const Value: TLevel);
  published
  public
    property Items[Index: Integer]: TLevel read GetItems write SetItems; default;
  end;

function TLevels.GetItems(Index: Integer): TLevel;
begin
  Result := TLevel(inherited GetItem(Index));
end;

Ошибка при компиляции:

Invalid typecast

procedure TLevels.SetItems(Index: Integer; const Value: TLevel);
begin
  inherited SetItem(Index, Value);
end;

Ошибка при компиляции:

Incompatible types: 'TObject' and 'TLevel'

Как это исправить?

[Alex11223]

inherited может не нужно.

Вообще в ХЕ не нужно создавать такие обертки, там Generic'и есть.

[Ship_1]

Да? Не знаете ли, случайно, статейку на русском про это?
А убирание inherited не помогло: всё осталось таким же (те же ошибки).

[evg_m]

посмотреть что же это за тип такой TLevel
и сделать его "нормальным" классом (наследником TObject)

[Alex11223]

А чего там читать, добавил нужный uses, написал TObjectList<TMyClass> и все.
http://docs.embarcadero.com/products...bjectList.html

[Ship_1]

evg_mСпасибо... Тупо получилось... В TLevel забыл Record на Class поменять...

[evg_m]

А чего там читать, добавил нужный uses, написал TObjectList<TMyClass> и все.

всего ничего

Не пойму, чего не нравится Delphi 7?