anchor.diff:  end;
   
   procedure TNetConnection.SendError(NetTranferType: TNetTransferType; operation,
  -  request_id: Integer; error_code: Integer; error_text: AnsiString);
  +  request_id: Integer; error_code: Integer; const error_text: String);
   var buffer : TStream;
   begin
     buffer := TMemoryStream.Create;
     Try
  -    TStreamOp.WriteAnsiString(buffer,error_text);
  +    TStreamOp.WriteAnsiString(buffer,TEncoding.ASCII.GetBytes(error_text));
       Send(NetTranferType,operation,error_code,request_id,buffer);
     Finally
       buffer.Free;
  
positive.code:     if HeaderData.header_type=ntp_response then begin
        HeaderData.is_error := HeaderData.error_code<>0;
        if HeaderData.is_error then begin
          TStreamOp.ReadAnsiString(DataBuffer,HeaderData.error_text);
        end;
      end else begin
        HeaderData.is_error := HeaderData.error_code<>0;
        if HeaderData.is_error then begin
          TStreamOp.ReadAnsiString(DataBuffer,HeaderData.error_text);
        end;
      end;
      if (HeaderData.is_error) then begin
  
negative.code: 
  procedure TNetConnection.DoProcess_Message(HeaderData: TNetHeaderData; DataBuffer: TStream);
  Var   errors : AnsiString;
    decrypted,messagecrypted : TRawBytes;
    DoDisconnect : boolean;
  begin
    errors := '';
  