Property "Readonly" machen

[omata]

Delphi-Quellcode:

type
  TMyClass = class
  private
    FData:integer;
  public
    constructor create;
    property ReadOnlyData:integer read FData;
  end;

:

constructor TMyClass.create;
begin
  FData:=1;
end;