TServerReconnectEvent = procedure (Sender: TObject; IsEncrypted: Boolean; const ConnectAddress: String; UserData: TObject) of object