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.