TPasWriter.WriteElement does not correctly write declararions of variant records. For example: ``` RPoint=Record K : string; Case Boolean of False : (X,Y,Z : real); True : (R,theta,phi : real); end; ``` is shown as follows: ``` RPoint = record K: string; end; ``` See attached archive to reproduce. [test.zip](/uploads/6e6fd3931172230276b62836b922a7e6/test.zip)