anchor.diff:  
     if (conditions <> nil) then
       for var i: Integer := 0 to conditions.Count - 1 do
  -      str := str + '[' + conditions[i].Block + '|' + conditions[i].Note + ']';
  +      str := str + '[{' + conditions[i].Block + '}|{' + conditions[i].Note + '}]';
   
     if (Area <> nil) then
       areaName := Area.name
  
positive.code: 
    try
      (AContext.data as TPanelConnData).potvr := callback;
      Self.SendLn(AContext, '-;' + UpperCase(mode) + ';' + areaName + ';' + event + ';' + str);
      F_Main.LV_Clients.items[(AContext.data as TPanelConnData).index].SubItems[_LV_CLIENTS_COL_RIZ] := event;
    except
  
  
negative.code:   try
      (AContext.data as TPanelConnData).Menu := Blk;
      (AContext.data as TPanelConnData).menu_or := Area;
      Self.SendLn(AContext, '-;MENU;{' + Menu + '};');
      F_Main.LV_Clients.items[(AContext.data as TPanelConnData).index].SubItems[_LV_CLIENTS_COL_MENU] := Blk.name;
    except
  
  