anchor.diff:  
           FResponseHeader.Text := lvRawHeaderStr;
           FResponseContentType := StringsValueOfName(FResponseHeader, 'Content-Type', [':'], True);
  +        lvCookie := StringsValueOfName(FResponseHeader, 'Set-Cookie', [':'], True);
  +        if Length(lvCookie) > 0 then
  +        begin
  +          lvCookie :=Trim(StringReplace(lvCookie, 'Path=/;', '', [rfReplaceAll, rfIgnoreCase]));
  +          lvCookie :=Trim(StringReplace(lvCookie, 'HttpOnly', '', [rfReplaceAll, rfIgnoreCase]));
  +          FResponseCookie := lvCookie;
  +        end;
  +        FResponseContentEncoding :=StringsValueOfName(FResponseHeader, 'Content-Encoding', [':'], True);
  +
           lvTempStr := StringsValueOfName(FResponseHeader, 'Content-Length', [':'], True);
  -        FResponseContentEncoding :=StringsValueOfName(FResponseHeader, 'Content-Encoding', [':'], True);
  +
  +
  +        
           l := StrToIntDef(lvTempStr, 0);
           if l = 0  then
           begin
  
positive.code: {$ENDIF}
  
  
  
  
    lvTempStr := StringsValueOfName(FResponseHeader, 'Set-Cookie', [':'], True);
    if lvTempStr <> '' then
    begin  
      FRawCookie := lvTempStr;
    end;
  
  
    FLastActivity := GetTickCount;
    FLastResponseTick := GetTickCount;
    DoAfterResponse;
  
negative.code: procedure TDiocpHttpClient.Post(pvURL: String);
  var
    r, len:Integer;
    lvIpAddr, lvCookie:string;
  {$IFDEF UNICODE}
    lvRawHeader:TBytes;
  {$ELSE}
  