TObjectList

type TObjectList = class(TList)

protected

  procedure Notify(); override;

  function GetItem();

  procedure SetItem();

public

  constructor Create();

  function Add();

  function Extract();

  function Remove();

  function IndexOf();

  function FindInstanceOf();

  procedure Insert();

  function First;

  function Last;

  property OwnsObjects: Boolean; [rw]

  property Items []: TObject; default; [rw]

end;

TObjectList

TObject