if Length(paramstr(1)) > 0 then
  begin
    LStr := TIdURI.URLDecode(paramstr(1));
    // Убираем из входящей строки лишние символы
    LStr := StringReplace(LStr, 'office://probes=', '', []); // Вначале
    if LStr[Length(LStr)] = '/' then // Вконце
      Delete(LStr, Length(LStr), 1);

    if TimeTry < 1 then
    begin
      TimeTry := TimeTry + 1; // Счетчик, чтобы два раза не печатало
      try
        LJsonObj := TJSONObject.ParseJSONValue(LStr) as TJSONObject;

        if Assigned(LJsonObj) then
          with LJsonObj do
          begin
            if not TryGetValue('order_number', order_number) then
            begin
              showmessage('Ошибка чтения order_number из входных параметров');
              close;
            end;

            if not TryGetValue('depart_number', depart_number) then
            begin
              showmessage('Ошибка чтения depart_number из входных параметров');
              close;
            end;

            // Для индификации ЛПУ
            // 1293
            if (depart_number = '1293') or (depart_number = '9999') then
              LPUSet := LPUSet + 1
              // Все остальные
            else if (depart_number <> '1293') or (depart_number <> '9999') then
              LPUSet := LPUSet + 2;

            if not TryGetValue('token', token) then
            begin
              showmessage('Ошибка чтения token из входных параметров');
              close;
            end;

            if not TryGetValue('user_id', user_id) then
            begin
              showmessage('Ошибка чтения user_id из входных параметров');
              close;
            end;

            TryGetValue('index', index);
            TryGetValue('source', OfficeStart);

            showmessage(order_number + ' ' + depart_number + ' ' + token + ' ' +
              user_id + ' ' + token + ' ' + index + ' ' + OfficeStart);

          end
        else
        begin
          showmessage('Ошибка распарсивания входных параметров с сайта');
          Exit;
        end;
      except
        On e: exception do
          showmessage('Error: ' + e.Message)
      end;
    end;