anchor.diff:    HproseWriter := THproseWriter.Create(OutStream, Settings.Simple);
     try
       OutStream.Write(HproseTagCall, 1);
  -    HproseWriter.WriteString(AName);
  +    HproseWriter.WriteString(WideString(AName));
       if (Length(Args) > 0) or Settings.ByRef then begin
         HproseWriter.Reset;
         HproseWriter.WriteArray(Args);
  
positive.code:     raise Exception.Create('unexpected EOF');
    N := Length(Data);
    if Data[N - 1] <> HproseTagEnd then
      raise Exception.Create('Wrong Response: ' + #13#10 + StringOf(Data));
    Result := Null;
    if Settings.Mode = RawWithEndTag then Result := Data
    else if Settings.Mode = Raw then begin
  
negative.code:         end
        end
        else if ATag = HproseTagError then
          raise Exception.Create(string(HproseReader.ReadString()));
        if ATag <> HproseTagEnd then
          raise Exception.Create('Wrong Response: ' + #13#10 + string(StringOf(Data)));
      finally
        HproseReader.Free;
        InStream.Free;
  