initialization
RegisterClass(TTestSub1);
finalization
UnregisterClass(TTestSub1);
var obj : TTest;
clsName = 'TTestSub1';
obj := TTestClass(FindClass(clsName)).Create
RegisterClasses([TButton,TLabel]);//注册类。
TButtonClass(FindClass('TButton')).Create(self);