program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Contnrs;

var
  Lst: TObjectList;
  Obj: TObject;

begin
  try
    Obj := TObject.Create;
    Lst := TObjectList.Create(True);
    try
      Lst.Add(Obj);
      if Assigned(Lst.Items[0]) then
        Beep;
    finally
      Lst.Free;
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

unit System.Contnrs;

//...

  TObjectList = class(TList)
  private
    FOwnsObjects: Boolean;
  protected
    procedure Notify(Ptr: Pointer; Action: TListNotification); override;
    function GetItem(Index: Integer): TObject; inline;
    procedure SetItem(Index: Integer; AObject: TObject); inline;

//...

function TObjectList.GetItem(Index: Integer): TObject;
begin
  Result := inherited Items[Index];
end;

if Assigned(Lst.Items[0]) then