anchor.diff:       // kontrola BANu uzivatele
        if (user.ban) then
         begin
  -       Self.ClientAuthorise(Sender, false, nil, 'Uživatel '+user.username+' má BAN !');
  +       Self.ClientAuthorise(Sender, false, user, 'Uživatel '+user.username+' má BAN !');
          Exit();
         end;
   
        if (not user.regulator) then
         begin
  -       Self.ClientAuthorise(Sender, false, nil, 'Uživatel '+user.username+' nemá právo k řízení lokomotiv !');
  +       Self.ClientAuthorise(Sender, false, user, 'Uživatel '+user.username+' nemá právo k řízení lokomotiv !');
          Exit();
         end;
   
  
positive.code:      str := 'ano';
  
     F_Main.LV_Clients.Items[(conn.Data as TTCPORsRef).index].SubItems[_LV_CLIENTS_COL_REGULATOR] := str;
     ORTCPServer.SendLn(conn, '-;LOK;G;AUTH;ok;'+comment);
    end else begin
     (conn.Data as TTCPORsRef).regulator_user := nil;
     F_Main.LV_Clients.Items[(conn.Data as TTCPORsRef).index].SubItems[_LV_CLIENTS_COL_REGULATOR] := '';
     ORTCPServer.SendLn(conn, '-;LOK;G;AUTH;not;'+comment);
  
     // odhlasime vsechny prihlasene regulatory
  
negative.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);
   authLog('reg', 'loco-release', TTCPORsRef(Regulator.Data).regulator_user.username, 'Release loco '+IntToStr(HV.adresa));
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  