RegisterClass为什么不起作用？该如何处理

RegisterClass为什么不起作用？
在Units中加入
initialization
    RegisterClass(TFrameGHDATATXT);
finalization
    UnRegisterClass(TFrameGHDATATXT);

在另外一个窗口中使用如下语句
sTmp   :=   'TFrameGHDATATXT ';
sClass   :=   TFrameClass(FindClass(sTmp));

运行中提示类不存在没有找到。

请问为什么？

在帮助文件中提到通过RegisterClass可以在Streaming中进行类的添加，就是想知道为什么上面的不能成功。另外请问怎么察看这个Streaming的内容啊

[解决办法]
RegisterClass(TFrameGHDATATXT);把这句代码加在sTmp := 'TFrameGHDATATXT ';
测试一下。
我用TFRom测试的好用。
[解决办法]
我这里用的也是好好的
你是不是没有把该单元包括在工程之中啊？