Property nur Lesen kann nicht zugewisen werden

[Cyberaxx]

Hallo,

vllt. eine vllt etwas dumme Frage aber warum funktioniert dieses nicht im nur lesen Modus?

Delphi-Quellcode:

type
  TUserStatus = procedure(Sender: TObject; Const ConnectedClients, ConnectedUsers: Integer) of Object;

type
  TServerPA = Class(TWinControl)
  private
    FUserStatus: TUserStatus;
  public
    constructor Create(AOwner: TComponent; Log: TStrings = Nil; DebugMode: TDebugmode = dmFull);
    destructor Destroy();
    procedure Open;
    procedure Close;
    function Active: Boolean;
    property OnUserStatus: TUserStatus read FUserstatus;// write FUserStatus;
  end;

[...]

  // Übergabe der verbundenen Clients und der angemeldeten Benutzer
  if Assigned(FUserstatus) then
    FUserstatus(Self, FActiveConnections, Users.Count);

Auf meiner Main Form.

Delphi-Quellcode:

procedure GetUserstatus(Sender: TObject; const ConnectedClients, ConnectesUsers: Integer);

[...]

  ServerPA := TServerPA.Create(Self, Memo1.Lines);
  ServerPA.OnUserStatus := GetUserStatus;

Als Fehlermeldung erhalte ich dann:

Zitat:

Cannot assign to a read-only property

Sobald ich das write wieder einfüge, geht es.

Weiß da jemand eine Lösung? Es soll ja nur eine Leseeigenschaft sein.