function TPasClassType GetDeclaration does not correctly show declarations. For example: ``` TMyClass=class field : integer; procedure Proc; end; ``` is shown as follows: ``` TMyClass ``` In the analogous case of advanced records, the behavior is correct. For example: ``` RPoint=Record K : string; procedure Method; end; ``` is shown as follows: ``` RPoint = record public K : string; procedure Method; end; ``` See attached archive to reproduce. [test.zip](/uploads/9b03a7f73be805d0556aa8a24beb20d7/test.zip)