TEventStreaming = procedure (const AMesgID: string; var AAccepted: Boolean) of object;
Set AAccepted to False to inform the peer that the new article is not accepted or already on the server.