anchor.diff:  
   procedure TBlkAC.Enable();
   begin
  + Self.m_state.enabled := true;
    inherited Change();
  - Self.m_state.enabled := true;
   end;
   
   procedure TBlkAC.Disable();
  
positive.code:  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;
  end;
  
  procedure TBlkAC.OnClientDisconnect();
  begin
   Self.m_state.client := nil;
   if (not Self.stopped) then
     Self.Stop();
  
  
negative.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);
  
      // ----- AC own functions -----
  
  