anchor.diff:        begin
          Self.ClientAuthorise(Sender, true, user);
         end else begin
  -       Self.ClientAuthorise(Sender, false, nil, 'Špatné heslo');
  +       Self.ClientAuthorise(Sender, false, user, 'Špatné heslo');
         end;
      except
       // error pri parsovani -> oznamime chybu
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TTCPRegulator.RemoveLok(Regulator:TIDContext; HV:THV; info:string);
  begin
   HV.RemoveRegulator(Regulator);
   TTCPORsRef(Regulator.Data).regulator_loks.Remove(HV);
   ORTCPServer.SendLn(Regulator, '-;LOK;'+IntToStr(HV.adresa)+';AUTH;release;'+info);
   ORTCPServer.GUIQueueLineToRefresh(TTCPORsRef(Regulator.Data).index);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:    ORTCPServer.GUIQueueLineToRefresh(TTCPORsRef(Regulator.Data).index);
    end;
  
   authLog('reg', 'loco-acquire', TTCPORsRef(Regulator.Data).regulator_user.username, 'Acquire loco '+IntToStr(HV.adresa));
   Self.SendExpectedSpeed(Regulator, HV);
   Self.SendPredictedSignal(Regulator, HV);
  end;
  