anchor.diff:  
     private const
       _MOUNT_TO_ACTIVE_TIME_SEC = 3;
  -    _ACTIVE_TO_DISABLE_TIME_SEC = 30;
  +    _ACTIVE_TO_DISABLE_TIME_SEC = 60;
   
     private
       RozpSettings: TBlkDiscSettings;
  
positive.code:       begin
          if (Now > Self.RozpStav.finish) then
          begin
            Self.RozpStav.finish := Now + EncodeTime(0, 0, Self._ACTIVE_TO_DISABLE_TIME_SEC, 0);
            Self.state := TBlkDiscBasicState.active;
          end;
        end;
  
negative.code: 
  procedure TBlkDisconnector.Activate();
  begin
    Self.RozpStav.finish := Now + EncodeTime(0, Self._ACTIVE_TO_DISABLE_TIME_SEC div 60,
                                             Self._ACTIVE_TO_DISABLE_TIME_SEC mod 60, 0);
    Self.state := TBlkDiscBasicState.active;
  end;
  
  procedure TBlkDisconnector.Prolong();
  begin
    Self.RozpStav.finish := Now + EncodeTime(0, Self._ACTIVE_TO_DISABLE_TIME_SEC div 60,
                                             Self._ACTIVE_TO_DISABLE_TIME_SEC mod 60, 0);
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  