TClassList

type TClassList = class(TList)

protected

  function GetItems();

  procedure SetItems();

public

  function Add();

  function Extract();

  function Remove();

  function IndexOf();

  function First;

  function Last;

  function Find();

  procedure GetClassNames();

  procedure Insert();

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

end;

TClassList

TObject