anchor.diff:   end;
   end;
   
  -procedure TBlkAC.MenuSTOPClick(SenderPnl:TIdContext; SenderOR:TObject);
  +procedure TBlkAC.MenuSTOPClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
    try
      Self.Stop();
  
positive.code: end;
  
  procedure TBlkAC.SendClientControl();
  var state:string;
  begin
   if (Self.client = nil) then Exit();
  
  
negative.code:     procedure OnClientDisconnect(client: TIdContext);
      procedure ClientParse(Sender: TIdContext; parsed: TStrings);
  
      property state: TBlkACState read m_state;
      property enabled: Boolean read m_state.enabled;
      property stopped: Boolean read GetStopped;
      property running: Boolean read GetRunning;
      property paused: Boolean read GetPaused;
      property acState: TACState read m_state.state;
      property clientConnected: Boolean read GetClientConnected;
      property client: TIdContext read m_state.client;
  
      // GUI:
      procedure PanelMenuClick(SenderPnl: TIdContext; SenderOR: TObject; item: string; itemindex: Integer); override;
      function ShowPanelMenu(SenderPnl: TIdContext; SenderOR: TObject; rights: TORCOntrolRights):string; override;
      procedure PanelClick(SenderPnl: TIdContext; SenderOR: TObject; Button: TPanelButton;
                           rights: TORCOntrolRights; params: string = ''); override;
      function PanelStateString():string; override;
  
   end;
  