AddClass,не знаю как объявить...

[Goshan82]

Здравствуйте уважаемые!Подскажите пожалуйста,как добавить AddClass,ругается что не объявлена,все изощрённые попытки не привели ни к чему

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, Grids, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    Edit4: TEdit;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    ListBox1: TListBox;
    ListBox2: TListBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    RichEdit1: TRichEdit;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TreeView1: TTreeView;
    TreeView2: TTreeView;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AddSubNodes(Node:TTreeNode;Cntrl:Tcontrol);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddSubNodes(Node:TTreeNode;Cntrl:Tcontrol);
 var
  i:integer;
  NewNode:TTreeNode;
  s:string;
  MyClass:TClass;
  begin
   if Cntrl.Name='' then s:='<áåç èìåíè>'
   else
   s:=Cntrl.Name;
   NewNode:=TreeView1.Items.AddChildObject(Node,s,Cntrl);
   MyClass:=Cntrl.ClassType;
   AddClass(MyClass);
   if Cntrl is TWinControl then
   with (Cntrl as TWinControl) do
   for i:=0 to ControlCount-1 do begin
   AddSubNodes(NewNode,Controls[i] as TControl);
   end;
end;