Delphi 中怎样根据 字符串 创建 并 调用对象？

Question

........ 
type
    A=class(TPersistent) 
    ..... 
    .... 
end; 然后，A派生出A1,A2,A3,A4,A5.....A20; 
我想在程序运行中，根据情况用对象名字符串 动态创建上面这些对象并使用他们。应该怎么做？ cObj:= GetClass('A1').Create; //这一句可以运行。 
GetClass('A1')(cObj).proc1; //这一句就不行了。编译也不过。 跪求高手指点

Answer 1

GetClass  返回的是TPersistentClass ，  你把一個類向下轉換，再取得有可能是子類中的過程，這不可行的。

Answer 2

Delphi 根据字符串创建对象 
http://www.cnblogs.com/gfkz/archive/2008/10/16/1312263.html