那是一个类引用。TClass = class of TObject就表示TClass是TObject或它子类的一个变量。他表示的是类,而不是类的实例。比如说T1 = class of T0;T2 = class(T0);.........procedure *********vara: T2;b: T1;beginb := T2; //b表示T1这个类或它的子类,而不是T1或T1子类的实例a := b.create; end;