TServerDisconnectEvent = procedure (Sender: TObject; UserData: TObject; const LastConnectAddress: String) of object