1:

TPersistent( TXMLNode )					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

type 
  TClassRec = record
    name : string[128];
    class : TClass;
    valid : boolean;
  end;
  
  TClassArr : array of TClassRec;

vat classReg:TClassArr ;
...
procedure registerNukerClass(aName:string;aClass:TClass);
var n:integer;
begin
  n := length(classReg);
  setLength(classReg,n+1);
  classReg[n].name := aName;
  classReg[n].class := aClass
  classReg[n].valid := true;
end;

procedure UnRegisterNukerClass(...
// nur das valid auf false setzen!

...
function FindNukerClass(...):TCLass;
// alle valid = false einträge beim suchen überspringen!

  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 TRegGroups = class
  private
    FGroups: TList;
    FLock: TRTLCriticalSection;
    FActiveClass: TPersistentClass;
    function FindGroup(AClass: TPersistentClass): TRegGroup;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Activate(AClass: TPersistentClass);
    procedure AddClass(ID: Integer; AClass: TPersistentClass);
    function GetClass(const AClassName: string): TPersistentClass;
    function GroupedWith(AClass: TPersistentClass): TPersistentClass;
    procedure GroupWith(AClass, AGroupClass: TPersistentClass);
    procedure Lock;
    procedure RegisterClass(AClass: TPersistentClass);
    procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
    function Registered(AClass: TPersistentClass): Boolean;
    procedure StartGroup(AClass: TPersistentClass);
    procedure Unlock;
    procedure UnregisterClass(AClass: TPersistentClass);
    procedure UnregisterModuleClasses(Module: HMODULE);
    property ActiveClass: TPersistentClass read FActiveClass;
  end;