TIdNNTPOnIHaveCheck = procedure (AThread: TIdNNTPThread; const AMsgID : String; VAccept : Boolean) of object;