anchor.diff:          FNetProtocolVersion := HeaderData.protocol;
           // Build 1.0.4 accepts net protocol 1 and 2
           if HeaderData.protocol.protocol_version>CT_NetProtocol_Available then begin
  -          TNode.Node.NotifyNetClientMessage(Nil,'Detected a higher Net protocol version at '+
  +          TNode.Node.NotifyNetClientMessage(Nil,
  +            'Detected a higher Net protocol version at '+
               ClientRemoteAddr+' (v '+inttostr(HeaderData.protocol.protocol_version)+' '+inttostr(HeaderData.protocol.protocol_available)+') '+
               '... check that your version is Ok! Visit official download website for possible updates: https://sourceforge.net/projects/pascalcoin/');
             DisconnectInvalidClient(false,Format('Invalid Net protocol version found: %d available: %d',[HeaderData.protocol.protocol_version,HeaderData.protocol.protocol_available]));
  
positive.code:           Connection.DisconnectInvalidClient(false,'Invalid received chunk: '+errors);
            exit;
          end;
          If (safeBoxHeader.safeBoxHash<>sbh) or (safeBoxHeader.startBlock<>from_block) or (safeBoxHeader.endBlock<>c) or
            (safeBoxHeader.blocksCount<>safebox_blockscount) or (safeBoxHeader.protocol<CT_PROTOCOL_2) or
            (safeBoxHeader.protocol>CT_BlockChain_Protocol_Available) then begin
            errors := Format('Invalid received chunk based on call: Blockscount:%d %d - from:%d %d to %d %d - SafeboxHash:%s %s',
                [safeBoxHeader.blocksCount,safebox_blockscount,safeBoxHeader.startBlock,from_block,safeBoxHeader.endBlock,c,
                 TCrypto.ToHexaString(safeBoxHeader.safeBoxHash),TCrypto.ToHexaString(sbh)]);
            Connection.DisconnectInvalidClient(false,'Invalid received chunk: '+errors);
            exit;
          end;
  
negative.code: end;
  
  procedure TNetConnection.SendError(NetTranferType: TNetTransferType; operation,
    request_id: Integer; error_code: Integer; const error_text: String);
  var buffer : TStream;
  begin
    buffer := TMemoryStream.Create;
    Try
      TStreamOp.WriteAnsiString(buffer,TEncoding.ASCII.GetBytes(error_text));
      Send(NetTranferType,operation,error_code,request_id,buffer);
    Finally
      buffer.Free;
  