>>267
ユニット=Classes
カテゴリ=クラス処理ルーチン

function FindClass(const ClassName: string): TPersistentClass;

名前からClassを得るという活用方法が有るのだから、これでよかろう?

なお
procedure RegisterClass(AClass: TPersistentClass);
を忘れるな!