anchor.diff:  
   procedure TConnectionBase.DisconnectTimerProc(ATime: Cardinal);
   begin
  -    //    GetTickCount
  +    // Проверка переполнения счетчика GetTickCount
       if FLastCalled > ATime then
           FLastCalled := GetTickCount();
       if FLastCalledWF > ATime then
           FLastCalledWF := GetTickCount();
   
  -    //   
  +    // Отключение неактивных подключений
       if (ATime - FLastCalled) > CDisconnectTimeOut then
           Connected := False;
       if (ATime - FLastCalledWF) > CDisconnectTimeOut then
  
positive.code: var
      LRpcFailed: Boolean;
  begin
      //      ,   
      //  .   ,    
      //       .
      //        
      // 
      LRpcFailed := False;
      try
          Result := CallRunMethod(Connection, AName, AParams);
  
negative.code:     LNewPassword: Boolean;
      LSavePassword: Boolean;
  begin
      // Для версии сервера приложений ниже 10-й подключение к WorkFlow
      // выполняется только один раз
      if not FWorkflowBaseConnected then
      begin
          // Начиная с версии 10 нет отдельной базы данных WorkFlow.
          // При подключении к серверу приложений WorkFlow версии ниже 10-й,
          // вместо указанной базы ABase будет осуществлено подключение к
          // базе WorkFlow. При этом само WorkFlow будет подключено к указанной
          // базе ABase, см. ниже
          if ServerVersion < CAppServerV10 then
              LBase := CWorkflowBase
          else
  