1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
{ %fail } {$ifdef fpc} {$mode delphi} {$endif} type tr = record a: integer; end; tc = class private f: tr; public property prop: tr read f write f; end; var c: tc; begin c.prop.a := 5; end.