- new TSQLRest.MainFieldIDs() method
    - now TSQLRestClientURI.BatchUpdate() will set only ID, TModTime and mapped
      fields when called over a TSQLRecord on which a FillPrepare() was made
      (and no FillClose was performed)
    - now TSQLRestServerStats is a plain TPersistent class, and will be sent
      as a JSON object to the client
    - added function IsNotAjaxJSON() function - formerly internal IsExpanded()


    - circumvent some bugs of Delphi XE2 background compiler (main compiler is OK)


  String usage in the Synopse SQLite3 database framework:
    - RawUTF8 is used for every internal data usage, since both SQLite3 and
      JSON do expect UTF-8 encoding
    - WinAnsiString where WinAnsi-encoded AnsiString (code page 1252) are needed
................................................................................
begin
  if self=nil then
    result := 504 else begin
{$ifdef WITHLOG}
    SQLite3Log.Enter(self,pointer(aMethodName));
{$endif}
    result := URI(Model.getURICallBack(aMethodName,aTable,aID),
      'PUT',nil,aResponseHead,@aSentData).Lo;
{$ifdef WITHLOG}
    SQLite3Log.Add.Log(sllServiceReturn,'result=%',result);
{$endif}
  end;
end;

function TSQLRestClientURI.ServiceRegister(const aInterfaces: array of PTypeInfo;

    - new TSQLRest.MainFieldIDs() method
    - now TSQLRestClientURI.BatchUpdate() will set only ID, TModTime and mapped
      fields when called over a TSQLRecord on which a FillPrepare() was made
      (and no FillClose was performed)
    - now TSQLRestServerStats is a plain TPersistent class, and will be sent
      as a JSON object to the client
    - added function IsNotAjaxJSON() function - formerly internal IsExpanded()
    - TSQLRestClientURI.CallBackPut() will now return any HTTP response content
      (even if it is not HTTP/1.1 compliant, and not work over some networks)
    - circumvent some bugs of Delphi XE2 background compiler (main compiler is OK)


  String usage in the Synopse SQLite3 database framework:
    - RawUTF8 is used for every internal data usage, since both SQLite3 and
      JSON do expect UTF-8 encoding
    - WinAnsiString where WinAnsi-encoded AnsiString (code page 1252) are needed
................................................................................
begin
  if self=nil then
    result := 504 else begin
{$ifdef WITHLOG}
    SQLite3Log.Enter(self,pointer(aMethodName));
{$endif}
    result := URI(Model.getURICallBack(aMethodName,aTable,aID),
      'PUT',@aResponse,aResponseHead,@aSentData).Lo;
{$ifdef WITHLOG}
    SQLite3Log.Add.Log(sllServiceReturn,'result=%',result);
{$endif}
  end;
end;

function TSQLRestClientURI.ServiceRegister(const aInterfaces: array of PTypeInfo;