Source position: pparser.pp line 412
protected procedure TPasParser.ParseClassFields(
AType: TPasClassType;
const AVisibility: TPasMemberVisibility;
IsClassField: Boolean;
IsThreadVar: Boolean = False
);