anchor.diff:  {$ENDIF}
   
   
  -
  -
  -  lvTempStr := StringsValueOfName(FResponseHeader, 'Set-Cookie', [':'], True);
  -  if lvTempStr <> '' then
  -  begin  
  -    FRawCookie := lvTempStr;
  -  end;
  -
  -
     FLastActivity := GetTickCount;
     FLastResponseTick := GetTickCount;
     DoAfterResponse;
  
positive.code:     Move(FReponseBuilder.Memory^, FResponseBody.Memory^, l); 
    end;
  
    lvTempStr := StringsValueOfName(FResponseHeader, 'Set-Cookie', [':'], True);
  
    if lvTempStr <> '' then
    begin  
      FRawCookie := lvTempStr;
    end;
  
  
    DoAfterResponse; 
  
negative.code: 
          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);
  
  
          
          l := StrToIntDef(lvTempStr, 0);
          if l = 0  then
          begin
  