anchor.diff:  
   begin
     FResponseCode:=0;
  +  FResponseHeader.Clear;
     SecurityFlags:=0;
     FillChar(pURIC, SizeOf(URL_COMPONENTS), 0);
     iFlags := INTERNET_FLAG_RELOAD or INTERNET_FLAG_RAW_DATA;
  
positive.code:                         while InternetReadFile(iRequestHandle, @arBuf, BUFSIZE, iBytesRead) and (iBytesRead > 0) do begin
                            AResponse.Write(arBuf,iBytesRead);
                          end;
                          iRetry:=0;
                        end;
                    end else
  
negative.code: 
  function THttpConnectionWinInet.GetResponseHeader(const Header: string): string;
  begin
    Assert(FResponseHeader <> nil);
    Result := FResponseHeader.Values[Header];
  end;
  
  procedure THttpConnectionWinInet.Patch(AUrl: string; AContent,
  