type
  t1=class
    property p1:byte write writeln(value{@parameter value: byte;@});
  end;
 
begin 

end.