ObjectList überschreiben?

[Kroko1999]

Delphi-Quellcode:

type
TMyObject = class;

TMyObjectList = class (TObjectList)
private
  function GetMyObject (const AIndex: Integer): TMyObject;
public
  property MyObject[const AIndex: Integer]: TMyObject read GetMyObject;
end;

function TMyObjectList.GetMyObject (const AIndex: Integer): TMyObject;
begin
  Result := TMyObject (Items[AIndex]);
end;