Disallow "protected" and "strict protected" in extended records (Delphi compatible).

ptype.pas, parse_record_members:
  * write an error message if "protected" or "strict protected" is encountered
msg/errore.msg:
  + add an error message for disallowed "things" in records

+ added test
* adjusted test (note: according to the bug report this test did not originally have the "protected" section, but it was added by Paul before commiting)


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@23596 3ad0048d-3df7-0310-abae-a5850022a9f2