怎样可以将delphi中的只读属性改成可读写的属性?(25分)

在delphi的printers中的pagewidth,pageheight两个属性是只读属性,我想设置成可读写的属性,自定义纸
张的长和宽,如下:
printer.page.pagewidth:=3456;
printer.page.pageheight:=765;
提示只读属性不能改,请问该怎样设置纸张的大小.

那你就只有修改源码,
将原来的property pagewidth:integer;
read getpagewidth 的后面加上 write
相应的操作写在write带的函数里面.

Delphi5开发人员指南中有设置打印纸宽度的方法，在第10章

to eric.youbin:我改了属性如下:
property PageHeight: Integer read GetPageHeight write setpageheight;
property PageWidth: Integer read GetPageWidth write setpagewidth;
可调用的时候提示错误:[Error] PrntsEh.pas(57): Field or method identifier expected
我的调用如下:
self.PageHeight:=1191;
self.PageWidth:=842;
请问该怎样写才能定义出纸张大小?