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

end.