type
  t1 = class
    x: integer;
    property p1: real read x + 1 write begin x := 1; end;
    property p2: real read x + 3;
  end;

begin end.