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