Hier
ServerPA.OnUserStatus := GetUserStatus;
setzt du ja die Property.
So sollte es gehen:
...
Delphi-Quellcode:
constructor Create(AOwner: TComponent; Log: TStrings = Nil; DebugMode: TDebugmode = dmFull; UserStatus: TUserStatus = Nil);
...
FUserstatus := GetUserStatus;