#220 Parse error on class constructor and class destructor

[TridenT]

class constructor and class destructor are valid delphi syntax, but the parser throw an exception.

TBox = class
private
class var FList: TList<Integer>;
class constructor Create;
class destructor Destroy;
end;

Tested with Jcf v2.43

[TridenT]

Test file to reproduce the issue

[TridenT]

Parsing error:
---------------
Exception TEParseError Expected class procedure or class function
Near CLASS at line 19 col 5

[TridenT]

Priority raised as it crash the parser