anchor.diff:  begin
     try
       (AContext.data as TPanelConnData).Note := Blk;
  -    Self.SendLn(AContext, '-;STIT;' + Blk.name + ';' + stit + ';');
  +    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
   
  
positive.code: 
  procedure TPanelServer.SendInfoMsg(AContext: TIdContext; msg: string);
  begin
    Self.SendLn(AContext, '-;INFOMSG;' + msg + ';');
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
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
  