ok_prefix_identifier
type TTest = class(TObject)
class var begin: Integer;
var: Integer;
class constructor Create;
class function end: Integer;