anchor.diff:  
   function THttpConnectionWinInet.GetResponseHeader(const Header: string): string;
   begin
  -  raise ENotSupportedException.Create('');
  +  Assert(FResponseHeader <> nil);
  +  Result := FResponseHeader.Values[Header];
   end;
   
   procedure THttpConnectionWinInet.Patch(AUrl: string; AContent,
  
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: 
  uses WinInet,Windows;
  
  const
    MaxHeadSize          = 16384; { see http://stackoverflow.com/questions/686217/maximum-on-http-header-values }
  
  { THttpConnectionWinInet }
  
  const
  