anchor.diff:  begin
    if (Self.Connected.Count = 0) then Exit();
   
  - msg := Self.id + ';CHANGE;' + TBlk(Sender).PanelStateString();
  + msg := '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);
  +   Self.SendLn(orPanel.Panel, msg);
   
      // aktualizace menu
      if ((orPanel.Panel.Data as TTCPORsRef).menu = Sender) then
  
positive.code:      // nejdriv musi probihat zadost o loko
       if (Self.ORStav.reg_please = nil) then
        begin
         ORTCPServer.SendLn(Sender, Self.id+';LOK-REQ;ERR;Neprobíhá žádná žádost z regulátoru');
         Exit();
        end;
  
  
negative.code:   end;
   except
    on E: Exception do
      Self.SendLn(Sender, 'SPR-EDIT-ERR;'+E.Message);
   end;
  end;
  
  