wrong property value with nested object

[User4martin]

In the below the field for the property is in a nested record/object.

run to the "write" line.

pdr) p f
F = TFoo(@$00007F031C8E0060) { x: TRec { a: 11, b: TT { a1: ..., b1: ... } }, n: 0, y: TRec { a: 21, b: TT { a1: ..., b1: ... } }, t: 21 }

However, the correct value is "22".

program project1; {$Mode objfpc}
type
  TT = record
    a1,b1:word;
  end;
  TRec = object
    a: byte;
    b: TT;
  end;
  TFoo = class
  protected
    x: TRec;
    n: integer;
    y: TRec;
  public
    property t: word read y.b.a1;
  end;

var f : TFoo;

begin
  f:=TFoo.Create;
  f.x.a:=11;
  f.x.b.a1:=12;
  f.y.a:=21;
  f.y.b.a1:=22;
  write(f.t);
end.

[User4martin]

Similar when accessing a field in an array

program project1;
{$Mode objfpc}
type
  T1 = array [3..5] of integer;
  TFoo = class
  private
    F1: T1;
  public
    property Bar: Integer read F1[4];
  end;
var x: TFoo;
begin
  x := TFoo.Create;
  x.F1[3] := 19;
  x.F1[4] := 29;
  x.F1[5] := 39;
  writeln;
writeln(x.Bar);
x.Destroy;
end.

p x
X = TFoo(@$00007F08A637E060) { F1: array[3..5] of LongInt = [19, 29, 39], Bar: 19 }

But Bar should be 29