结构体和类中属性定义需要static地方

private

   function Readxxx:Integer;static;

public

   class property XXX:Integer read ReadXXx;

Txxx =record

class procedure test;Static;

end