格式
FundClass("ClassName");
根据类名找到当前的类。
返回找到类的指针，不是指向实例对象。
示例：
classA :=FindClass("A");
classA指向了类A，可以通过ClassA调用A的共享方法。但是不能调用实例方法，因为ClassA没有指向实例对象。
示例：
program test;
type A=class()

End;
Type B=class()

End;

Type C=class(A,B)
  class function f()
  Begin
    writeln("f");
  End;
End;

begin
  CC:=FindClass("C");
  CC.F();
End.