[esocrates]

Estoy tratando de estudiar el código aportado por xEsk pero no entiendo dónde debo escribir la primera parte del mismo:

Código Delphi [-]
procedure TForm1.AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);
var
  n: Integer;
  lNode: TTreeNode;

begin
  if ParentControl is TWinControl then
    for n:=0 to TWinControl(ParentControl).ControlCount - 1 do
      begin
        lNode:=TreeView1.Items.AddChild(ParentNode, Format('%s: %s', [TWinControl(ParentControl).Controls[n].Name, TWinControl(ParentControl).Controls[n].ClassName]));
        AddSubControls(lNode, TWinControl(ParentControl).Controls[n]);
      end;
end;

Recibo el siguiente mensaje de error
Undeclared identifier: 'AddSubControls'

Muchas gracias por la ayuda y disculpen mi ignorancia.
Un saludo y hasta pronto