anchor.diff:   end else if ((UpperCase(parsed[3]) = 'CONTROL') and (parsed.Count >= 5) and (UpperCase(parsed[4]) = 'DONE')) then begin
      if (Self.running) then
        Self.Stop();
  - end else if ((UpperCase(parsed[3]) = 'CONTROL') and (parsed.Count >= 7) and (UpperCase(parsed[4]) = 'ERROR')) then begin
  -   // TODO
  + end else if ((UpperCase(parsed[3]) = 'CONTROL') and (parsed.Count >= 6) and (UpperCase(parsed[4]) = 'STATE')) then begin
  +   ExtractStringsEx([','], [], parsed[5], Self.m_state.lines);
    end;
   end;
   
   procedure TBlkAC.OnClientDisconnect();
   begin
    Self.m_state.client := nil;
  + Self.m_state.lines.Clear();
    if (not Self.stopped) then
      Self.Stop();
   
  
positive.code: 
    public
  
      constructor Create(index:Integer);
      destructor Destroy(); override;
  
      // load/save data
      procedure LoadData(ini_tech:TMemIniFile; const section:string; ini_rel,ini_stat:TMemIniFile); override;
      procedure SaveData(ini_tech:TMemIniFile; const section:string); override;
  
      // enable or disable symbol on relief
      procedure Enable(); override;
      procedure Disable(); override;
  
      function GetSettings():TBlkACSettings;
      procedure SetSettings(data: TBlkACSettings);
  
      // update states
      procedure Update(); override;
      procedure Change(now:boolean = false); override;
  
      // ----- AC own functions -----
  
  
negative.code:    TACState.paused: podm.Add(TOR.GetPSPodminka('AC: pozastaven', ''))
   end;
  
   for str in Self.m_state.lines do
     podm.Add(TOR.GetPSPodminka(str, ''));
  
   ORTCPServer.PotvrOrInfo(pnl, 'IS', nil, OblR, 'Zobrazen stavu AC', TBlky.GetBlksList(Self), podm)
  end;
  
  