In the absence of a TIdServerIntercept descendant TIdServerIntercept you can handle the OnConnect event and assign an instance of TIdBlockCipherIntercept for the connection property to the Intercept server.
AContext.Connection.Intercept := TIdBlockCipherIntercept.Create(AContext.Connection);
source share