anchor.diff:  
   procedure TOR.ORAuthoriseResponse(Panel:TIdContext; Rights:TORControlRights; msg:string; username:string);
   begin
  - ORTCPServer.SendLn(Panel, Self.id+';AUTH;'+IntToStr(Integer(Rights))+';'+msg+';'+username);
  + Self.SendLn(Panel, 'AUTH;'+IntToStr(Integer(Rights))+';'+msg+';'+username);
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code: begin
   if (Self.Connected.Count = 0) then Exit();
  
   msg := Self.id + ';CHANGE;' + TBlk(Sender).PanelStateString();
  
   for orPanel in Self.Connected do
    begin
     if (orPanel.Rights < TORControlRights.read) then continue;
     if ((specificClient <> nil) and (orPanel.Panel <> specificClient)) then continue;
  
     ORTCPServer.SendLn(orPanel.Panel, msg);
  
     // aktualizace menu
     if ((orPanel.Panel.Data as TTCPORsRef).menu = Sender) then
  
negative.code: 
       data.Free();
     except
       Self.SendLn(Sender, 'LOK-REQ;ERR;Neplatný formát argumentů');
     end;
    end
  
  