anchor.diff:  procedure TJC.SetInitKrok();
   begin
    if (Self.fstaveni.nc) then
  -   Self.Krok := _NC_KROK_INIT
  - else
  +  begin
  +   Self.Krok := _NC_KROK_INIT;
  +   Self.fstaveni.TimeOut := Now + EncodeTime(0, _NC_TIMEOUT_MIN, 0, 0);
  +  end else begin
      Self.Krok := _JC_KROK_INIT;
  +   Self.fstaveni.TimeOut := Now + EncodeTime(0, _JC_TIMEOUT_SEC div 60, _JC_TIMEOUT_SEC mod 60, 0);
  +  end;
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:     upo:TUPOItems;
      item:TUPOItem;
   begin
    // timeout:
    if (nc) then
     Self.fstaveni.TimeOut := Now + EncodeTime(0, _NC_TIMEOUT_MIN, 0, 0)
    else
     Self.fstaveni.TimeOut := Now + EncodeTime(0, 0, _JC_TIMEOUT_SEC, 0);
  
    Self.fstaveni.from_stack := from_stack;
    Self.fstaveni.SenderOR := SenderOR;
  
negative.code: procedure TJC.DN();
  begin
   writelog('DN JC '+Self.nazev, WR_VC);
   Self.fstaveni.TimeOut := Now + EncodeTime(0, _JC_TIMEOUT_SEC div 60, _JC_TIMEOUT_SEC mod 60, 0);
  
   if (Self.fstaveni.prjWasClosed) then
     Self.Krok := _JC_KROK_FINALNI_ZAVER
  