anchor.diff:  
       procedure AddHeader(aName, aValue: UTF8String);
   
  -    procedure Post(aUrl: string; aRequest: UTF8String);
  +    procedure Post(aUrl: string; aRequest: UTF8String; var aResponse: UTF8String);
   
       property ResponseCode: Integer
         read GetResponseCode;
  
positive.code:       fsErrorMessage := E.Message;
  
        FIdHttp.Disconnect;
        (*
        retryMode := hrmRaise;
        if assigned(OnConnectionLost) then
          OnConnectionLost(e, retryMode);
        if retryMode = hrmRaise then
          raise
        else if retryMode = hrmRetry then
          Post(AUrl, AContent, AResponse);
          *)
      end;
    end;
  end;
  
negative.code: 
        if E.ErrorCode = 404 then
          exit;
  
      end;
      on E: EIdSocketError do
      begin
  