anchor.diff:        json.free;
       end;
       if (Not Result) then begin
  -      TLog.NewLog(ltdebug,classname,'Not received a JSON response Id:'+inttostr(nId)+' for method:'+method);
  +      TLog.NewLog(lterror,classname,'Not received a JSON response Id:'+inttostr(nId)+' for method:'+method);
       end;
     finally
       FLockProcessBuffer.Release;
  
positive.code:             If Assigned(processEventOnInvalid) then begin
                TLog.NewLog(ltdebug,classname,'Sending to process unexpected JSON:'+json.ToJSON(false));
                processEventOnInvalid(json,rm);
              end else TLog.NewLog(ltdebug,Classname,'Lost JSON message! '+json.ToJSON(false));
            end;
          end;
        until (Result) Or (GetTickCount > (tc+MaxWaitMiliseconds));
  
negative.code:     if (i>=0) then begin
        params := json.Items[i];
      end;
      TLog.NewLog(ltinfo,classname,'Received response method:'+ResponseMethod+' JSON:'+json.ToJSON(false));
    end else begin
      method := json.AsString('method','');
  