anchor.diff:  procedure Register;
   
   implementation
  +
  +uses
  +    MARS.Client.Resource
  +  , MARS.Client.Resource.JSON
  +  , MARS.Client.Resource.Stream
  +  , MARS.Client.Application
  +;
   
   procedure Register;
   begin
  
positive.code:   FHttpClient.ReadTimeout := Value;
  end;
  
  end.
  
negative.code: 
  uses
    SysUtils, Classes
    , MARS.Core.JSON
  
  {$ifdef DelphiXE7_UP}
    , System.Threading
  