private
function Readxxx:Integer;static;
public
class property XXX:Integer read ReadXXx;
Txxx =record
class procedure test;Static;
end
private
function Readxxx:Integer;static;
public
class property XXX:Integer read ReadXXx;
Txxx =record
class procedure test;Static;
end