Property nur Lesen kann nicht zugewisen werden

[Cyberaxx]

Ich glaube da ist was falsch vertanden worden, oder ich habe was falsch verstanden.

Die Property ist Public, damit in einer Anderen Klasse das Event eintritt.

Wenn sich die Anzahl der Verbindungen oder Benutzer verändert, will ich in den Fall meiner haupt Form das mitbekommen.

Delphi-Quellcode:

type
  TMain_Form = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure GetUserstatus(Sender: TObject; const ConnectedClients, ConnectesUsers: Integer);
  private
    { Private declarations }
    ServerPA: TServerPA;
  public
    { Public declarations }
  end;

var
  Main_Form: TMain_Form;

implementation

{$R *.dfm}

procedure TMain_Form.FormCreate(Sender: TObject);
begin
  ServerPA := TServerPA.Create(Self, Memo1.Lines);
  ServerPA.OnUserStatus := GetUserStatus;
end;

procedure TMain_Form.Button1Click(Sender: TObject);
begin
  ServerPA.Open;
end;

procedure TMain_Form.Button2Click(Sender: TObject);
begin
  ServerPA.Close;
end;

procedure TMain_Form.GetUserstatus(Sender: TObject; Const ConnectedClients,
  ConnectesUsers: Integer);
begin
  statusbar1.Panels[1].Text := inttostr(ConnectedClients);
  statusbar1.Panels[3].Text := inttostr(ConnectesUsers);
end;