anchor.diff:    enabled: boolean;
     client: TIdContext;
     state: TACState;
  +  lines: TStrings;
    end;
   
    TBlkACException = class(Exception);
  
positive.code:    on E:Exception do
       ORTCPServer.BottomError(SenderPnl, E.Message, TOR(SenderOR).ShortName, 'AC');
   end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkAC.PanelShowState(pnl: TIdContext; OblR: TOR);
  var podm: TList<TPSPodminka>;
  begin
   podm := TList<TPSPodminka>.Create();
   if (Self.clientConnected) then
     podm.Add(TOR.GetPSPodminka('Klient: pipojen', ''))
   else
     podm.Add(TOR.GetPSPodminka('Klient: nepipojen', ''));
   case (Self.acState) of
     TACState.stopped: podm.Add(TOR.GetPSPodminka('AC: zastaven', ''));
     TACState.running: podm.Add(TOR.GetPSPodminka('AC: b', ''));
     TACState.paused: podm.Add(TOR.GetPSPodminka('AC: pozastaven', ''))
   end;
  
   ORTCPServer.PotvrOrInfo(pnl, 'IS', nil, OblR, 'Zobrazen stavu AC', TBlky.GetBlksList(Self), podm)
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  