IdNNTPServer
TIdNNTPOnAuth = procedure (AThread: TIdNNTPContext; var VAccept: Boolean) of object;
TIdNNTPOnAuth