为什么可以（一个很菜的问题）

Delphi认为同一个Unit都是友元，连Private都可见，但是不同Unit就无法可见。所以如果你的调用程序和类不在同一个单元中，你就无法赋值了。