类的只读属性形同虚设？
代码如下，只读属性的值还是被修改了！算是“漏洞”吧？

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Fa: Integer;
  public
    { Public declarations }
    property a: Integer read Fa;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(IntToStr(a))
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PInteger(@a)^ := 123;{通过指针方式修改只读属性的值}
end;

[解决办法]
修改只读属性的方法就是通过指针
[解决办法]
property a: Integer read Geta; 用函数就是另一回事了