anchor.diff:        Domain := VarToStr(CookieManager.Keys[I]);
         if AnsiPos(Domain, Host) <> 0 then begin
           CookieMap := VarToMap(CookieManager.Values[I]);
  -		CookieMap.BeginRead;
  -		try
  +        CookieMap.BeginRead;
  +        try
             Names := TArrayList.Create(False);
             for J := 0 to CookieMap.Count - 1 do begin
               Cookie := VarToMap(CookieMap.Values[J]);
  
positive.code:  *                                                        *
   * hprose synapse http client unit for delphi.            *
   *                                                        *
   * LastModified: May 28, 2014                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  
negative.code:                 Cookies[Cookie['name']] := Cookie['value'];
              end;
            end;
          finally
            CookieMap.EndRead;
          end;
          if Names.Count > 0 then begin
            CookieMap.BeginWrite;
            try
              for J := 0 to Names.Count - 1 do CookieMap.Delete(Names[J]);
            finally
              CookieMap.EndWrite;
            end;
          end;
        end;
      end;
      Result := Cookies.Join('; ');
  