anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +procedure TORTCPServer.DisconnectRegulatorUser(user:TUser);
  +var i:Integer;
  +begin
  + for i := _MAX_OR_CLIENTS-1 downto 0 do
  +   if ((Self.clients[i] <> nil) and (TTCPORsRef(Self.clients[i].conn.Data).regulator) and
  +       (TTCPORsRef(Self.clients[i].conn.Data).regulator_user = user)) then
  +    begin
  +     Self.SendLn(Self.clients[i].conn, '-;LOK;G;AUTH;not;Zrueno oprvnn regultor');
  +     TTCPORsRef(Self.clients[i].conn.Data).regulator := false;
  +    end;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   initialization
    ORTCPServer := TORTCPServer.Create;
   
  
positive.code:  if (i = _MAX_OR_CLIENTS) then Exit();
  
   // parse handhake
   if (Self.parsed[1] = 'HELLO') then
    begin
     // tady muze prijit kontrola verze protokolu - je to ulozeno v Self.parsed[2]
     Self.clients[i].status := TPanelConnectionStatus.opened;
  
negative.code:      procedure DCCStop();
  
       function GetClient(index:Integer):TORTCPClient;
  
       procedure DisconnectRegulatorUser(user:TUser);
  
        property openned:boolean read IsOpenned;
        property port:Word read fport write fport;
  