送分小问题~
class var bFlag: Boolean;具体的含义是什么？还有类似的函数也有class，不知道class的用法是什么？

[解决办法]
class var 类变量
class procedure/function 类方法

可以直接用类调用，不用建立实例，即不用Create, 如下:
type
Tx = class
private
class var a: integer;
class procedure b;
...

类调用:
Tx.a:=100;
Tx.b;

实例调用:
var x:=Tx;

x:=Tx.Create;
x.a:=100;
x.b;