TInterfaceList

type TInterfaceList = class(TInterfacedObject)

protected

  function Get();

  function GetCapacity;

  function GetCount;

  procedure Put();

  procedure SetCapacity();

  procedure SetCount();

public

  constructor Create;

  destructor Destroy;

  procedure Clear;

  procedure Delete();

  procedure Exchange();

  function First;

  function IndexOf();

  function Add();

  procedure Insert();

  function Last;

  function Remove();

  procedure Lock;

  procedure Unlock;

  function Expand;

  property Capacity: Integer; [rw]

  property Count: Integer; [rw]

  property Items: IUnknown; default; [rw]

end;

TInterfaceList

TInterfacedObject

TObject