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